Abfrage von Memos

[Sharky]

Zitat von Wargrave:

...Also ein button soll visible:=false werden wenn im Memo1 und Memo2 nix drinsteht....

In diesem Fall würde ich das so machen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.OnChange := AllMemoOnChange;
  Memo2.OnChange := AllMemoOnChange;
end;

procedure TForm1.AllMemoOnChange(Sender: TObject);
begin
  Button1.Visible := not ((Memo1.Text = '') AND (Memo2.Text =''));
end;