editfeld - onchange - problem

[BullsEye]

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  IF (edit1.Text <> '') THEN BEGIN
  Button1.Enabled := true;
  END ELSE BEGIN
  Button1.Enabled := false;
  END;
end;

So funktioniert das.

Musst nur den Button von Anfang an Disablen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Enabled := false;
end;