2 verschiedene Prozeduren bei Button.Click

[dR4g0N]

Hallo ich möchte 2 verschiedene Prozeduren bei ButtonClick aufrufen (Ist wegen einer Stopuhr).
Also hab ein Button mit der Caption Start. OnClick soll sich die Caption auf Stop ändern und Timer1.Enabled := True werden. Bei erneurtem Click Caption Start und Timer1.Enabled := False. ich hab es mit if Button1.Caption = 'Start' ... versucht hat aber nicht wirklich hingehauen. Bitte um Hilfe.

MfG dR4g0N

[glkgereon]

du könntest dir einen boolean machen stoppt zb

am anfanbg is er false
dann wird immer gewechselt

wenner false is, dann wirder true und umgekehrt

[Smokey]

Oder du speicherst dir in der Tag-Variable des Buttons ob es läuft oder nicht.
Dann machste im OnClick :

Delphi-Quellcode:

if Button1.tag = 0 then //im moment steht die stoppuhr, soll aber nun gestartet werden
begin
  Button1.tag := 1;
  Button1.Caption := 'Stop';
  Timer1.enabled := true;
end
else begin
  Button1.Tag := 0;
  Button1.Caption := 'Start';
  Timer1.Enabled := false;
end;

[dR4g0N]

Thx euch beiden, hab Smokey's Code genommen und funzt :)

[glkgereon]

schade *ggg*