新手求助

Question

如何让一个按钮判断Edit内是否有输入，如果有按钮为黑，如果没有按钮为灰

Answer 1

if Edit.Text = '' then
  Button.Enabled := False
else
  Button.Color := clWhite;

Answer 2

你是不是要当Edit中没有文本，按钮就为不可用呀，
if edit1.text='' then
  Button1.Enabled:=False;

Answer 3

在onchange里写：if length(Edit.Text) = 0 then
  Button1.Enabled := False
else
  Button1.Enabled := True;

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
 If edit1.Text='' then
  button1.Enabled:=false;
end;procedure TForm1.Edit1Change(Sender: TObject);
begin
If edit1.text='' then
 button1.Enabled:=false
else
 button1.Enabled:=true;
end;

Answer 5

if Edit.Text = '' then
  Button.Enabled := False
else  
  Button1.Enabled := True;

Answer 6

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text = '' then
    Button1.Enabled := False
  else
    Button1.Enabled := True;
end;

Answer 7

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text = '' then
    Button1.Enabled := False
  else
    Button1.Enabled := True;
end;