1 Button - mehrere anweisungen

[thepaine91]

Also mach es dir einfach indem du

Delphi-Quellcode:

private
  modus: integer;

procedure form1.FormCreate(Sender: Tobject);
begin
  modus := 0;
end;

procedure form1.Button1Click(Sender: Tobject);
begin
  case modus of
    0:
    1:
    2:
    3:
  end;
end;

Das sollte dir als ansatz reichen...