TEdit的Enabled的字体颜色控制(50分)

delphi999 · 2001-10-23

大哥：
现在控件在Enabled:=false时，字体颜色是灰色的。
我想在TEdit增加一个property : DisableColor，当TEdit
的Enabled为false时，字体颜色为disablecolor所定的颜色。
请多多指教！

terry_lzs · 2001-10-23

由一个panel和edit来组成这个新的控件，enable设置为panel的enable这样就能解决这个问
题了。

eric.youbin · 2001-10-23

你把enabled:= true; font.color := 你想要的颜色
同时readonly := true;就达到你的要求了

delphi999 · 2001-10-23

我不想Edit可以获得焦点。

Brave · 2001-10-25

procedure TForm1.Edit2Enter(Sender: TObject);
begin
edit1.SetFocus;
end;

Brave · 2001-10-25

用label代替

GZCYP · 2001-10-25

要TEdit增加一个property : DisableColor，就必须新构造一个基于TEdit父类的控件。

delphi999 · 2001-10-27

多人接受答案了。