ButtonClick - 2 Aktionen

[Die Muhkuh]

Oder hier noch eine ganz blöde methode! geht aber auch!

Delphi-Quellcode:

procedure TForm1.button1click (Sender: TObject);
var
  a: integer;
begin
  inc(a);
    if a = 1 then
      Memo1.visible := true;
    if a = 2 then 
      Memo1.visible := false;
    if a > 1 then
      a := 0
end;

Ist zwar blöde aber auch eine alternative!