delphi灰键

来源：百度知道 编辑：UC知道 时间：2024/06/15 17:11:12
请教下，在edit中输入任意字符，然后另button由灰键变成可用，该怎么编码

楼主应该是新手吧,我写详细点
先把button1的enable属性设置为false,然后看代码:(添加edit1的change事件)
procedure TForm1.Edit1Change(Sender: TObject);
begin
button1.Enabled:=true;
end;
或者不先改enable属性,直接在eidt1的change事件中添加如下代码:
procedure TForm1.Edit1Change(Sender: TObject);
begin
button1.Enabled:=edit1.text <> '';
end;

写到EDIT的CHANGE事件里
button.enable := edit1.text <> '';