Timer geht nichtmehr aus?

[resolution]

hallo :)

habe einen timer den ich per button an/ausmache(n möchte):

Delphi-Quellcode:

procedure Tmf.runstopClick(Sender: TObject);
begin
  if(mf.runstop.caption='stop') then
  begin
    mf.runstop.Caption:='run';
    mf.runnow.Enabled:=false;
  end
  else
    mf.runstop.Caption:='stop';
    mf.runnow.Enabled:=true;
  begin
  end;
end;

der timer hat interval 1000, schaut dann ob er jetzt ne procedure aufrufen kann, ansonsten macht er nix bis zum nächsten tick..

das problem ist, das dieser timer nichtmehr ausgeht !!??
hab dann bisschen debuggt:
lasse mir bei jedem aufruf vom timer die enabled property ausgeben, sagt er immer -1
bei dem button hab ich mir nach dem setzen auf false die property ausgeben lassen, sagt er 0, doch der timer startet wieder und property -1 ???

das is mir nich nie passiert..
ach ja, das im code oben ist die EINZIGE Stelle im programm wo der timer auf true gesetzt wird..

irgendwas scheint das deaktivieren zu verhindern..

help ^^

danke + lg,
Manuel

[Hawkeye219]

Versuche es einmal so:

Delphi-Quellcode:

procedure Tmf.runstopClick(Sender: TObject);
begin
  if(mf.runstop.caption='stop') then
    begin
      mf.runstop.Caption:='run';
      mf.runnow.Enabled:=false;
    end
  else
    begin
      mf.runstop.Caption:='stop';
      mf.runnow.Enabled:=true;
    end;
end;

Gruß Hawkeye

[SirThornberry]

ich würd auch mal tippen das, dass "begin" einfach 2 zeilen zu weit herunter gerutscht ist.

[Sharky]

Hai resolution,

unabhängig davon was Dir ja schon gesagt wurde würde ich im Code nicht auf die Caption des Buttons prüfen sondern auf den Status des Timers selber. Wenn Du die Beschriftung des Button mal änderst würde deine Abfrage nicht mehr gehen.

Ich würde das ganze so machen:

Delphi-Quellcode:

procedure TDemoForm.runstopClick(Sender: TObject);
begin
begin
  runnow.Enabled := not (runnow.Enabled); // Timer Ein- / Ausschalten
  if (runnow.Enabled) then
    runstop.Caption := 'stop'
  else
    runstop.Caption := 'run';
end;

[resolution]

danke, natürlich ist das begin dort falsch - ich sollte noch etwas copy'n'paste üben ;)

die anmerkungen zum design sind richtig bis auf: "Wenn Du die Beschriftung des Button mal änderst würde deine Abfrage nicht mehr gehen.", sollte sich die caption ändern geht er ja in den run-status und ändert die caption, wonach man wieder stoppen könnte ;)

werd das also übernehmen :)
[aber natürlich syntaktisch korrekt *g*]

danke+lg :)