大家好,请教一个查找隐藏的问题!(10分)

  • 主题发起人 主题发起人 delphiere
  • 开始时间 开始时间
D

delphiere

Unregistered / Unconfirmed
GUEST, unregistred user!
一个button,一个edit.请教一下,当在edit中输入内容的时候,button才没有变灰呢?
其实我要的结果就好象我们经常按ctrl+F调用查找对话框那样子,edit没有输入button永远是灰的
为什么我这样
procedure TForm1.Edit1Enter(Sender: TObject);
begin
if edit1.text<>'' then
button1.Enabled:=true
else
button1.Enabled :=false;
end;
这样不行呢?
 
你写在EDIT1CHANGE事件里试试!
 
enter事件只发生在控件得到焦点的一刻。
所以你在输入时没反映。
你可以在chang或keypress,keydown事件中都可以实现
 
多人接受答案了。
 
后退
顶部