小编ski*_*pix的帖子

如何让Delphi独自离开我的DFM?

使用DXE2,我编写了一个表单生成器,可以创建.pas和.dfm文件.我正在编写一个例程,允许我修改dfm中的不同属性,例如Font.Height和TabOrder.

当我在记事本中打开生成的文件时,一切看起来都与我期望的完全一样.当我在Delphi中打开它时,属性会发生变化!令人沮丧的是我使用最初在Delphi IDE中设计的表单作为我的模板.我不明白为什么Delphi不尊重我的简单改变...

例如,原始Font.Height是-11.我在dfm中读到,将其更改为-17,然后保存.在记事本中,它显示-17.当我在Delphi中打开它时,它显示为-21!

任何想法/提示/建议将不胜感激!

delphi delphi-xe2

12
推荐指数
1
解决办法
1672
查看次数

是否可以确定dbEdit中的文本是否长于可见的文本?

在某些表单上,我有dbEdits,有时不够宽,无法显示其字段可能包含的所有文本.对于他们我有以下代码:

procedure Tgm12edLots.dbeLotNameMouseEnter(Sender: TObject);
begin
  with dbeLotName do begin
    ShowHint := True;
    Hint := Text;
  end;
end;
Run Code Online (Sandbox Code Playgroud)

我想避免提示显示所有文本是否可见,但我不知道如何测试该条件.

感谢您的任何提示/建议!

delphi user-interface editcontrol delphi-xe2

7
推荐指数
2
解决办法
875
查看次数

如何在TCheckBox,TRadioButton,TGroupBox上更改字幕字体颜色?

我不知道我的问题是什么,但我无法在DEx2中为TCheckBox,TRadioButton,TGroubBox和TRadioGroup等控件设置字体颜色.如果我在IDE中或以编程方式执行它并不重要.

我已将表单颜色设置为clBlack,并希望我的标题是clWhite,但它们不会渲染任何颜色,而是clBlack.当我在表单的OnShow事件上分配颜色并在调试器中逐步执行它时,它会显示我分配给它的值,但在屏幕上它仍然是黑色.

我没有使用样式或其他任何东西.有任何想法吗?

这是一个示例表单: 白色黑色示例http://www.skippix.us/temp/Delphi-Font-Problem.bmp

delphi vcl properties colors delphi-xe2

7
推荐指数
1
解决办法
7809
查看次数

如何根据部分字符串匹配排除行?

我有一个作业表,其中有一个名为"keywords"的longtext字段.

我试图形成一个SELECT语句,我可以匹配一些关键字,同时排除其他关键字.

例如,我需要SQL"为我提供关键字包含'肖像'这个词的所有工作,但排除那些有'户外'这个词的工作."

谢谢![如果需要修改问题或需要其他信息,请告诉我.]

mysql select

2
推荐指数
1
解决办法
4116
查看次数