W
wjlsmail
Unregistered / Unconfirmed
GUEST, unregistred user!
您好，我想让Edit1在Enable为False时不显示灰色（随便别的颜色），请问该怎么作 ？
有如下试验：
1.
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Enabled := False ; //此时变灰，怎样让它此时为蓝色 ？
Edit1.font.color:=clblue ;//不管怎样设置，都是灰的
end;
2. 有人说用 ReadOnly ，但ReadOnly和 DisEnabled 的效果不一样。
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.ReadOnly:=true ;
Edit1.font.color:=clblue ;
end;
3.截获 wm_paint消息，自己写，现在我还不会，望大家指导，谢谢
有如下试验：
1.
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Enabled := False ; //此时变灰，怎样让它此时为蓝色 ？
Edit1.font.color:=clblue ;//不管怎样设置，都是灰的
end;
2. 有人说用 ReadOnly ，但ReadOnly和 DisEnabled 的效果不一样。
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.ReadOnly:=true ;
Edit1.font.color:=clblue ;
end;
3.截获 wm_paint消息，自己写，现在我还不会，望大家指导，谢谢