warum Funktionniert code nicht zum an/aus schalten des Timer

[NikoMitDaMacht]

Warum funktioniert dieser Source nich?

Start1 ist ein popopmenu item und der source soll einen timer enabeln und disabeln, caption des item verändern

Delphi-Quellcode:

procedure TMainForm.Start1Click(Sender: TObject);
begin
if Start1.Caption = 'Start' then
begin
   Timer3.Enabled:=true;
   Timer1.Enabled:=true;
end;
 if Start1.Caption = 'Stop' then
begin
   Timer2.Enabled:=true;
   Timer1.Enabled:=False;
end;
end;

procedure TMainForm.Timer2Timer(Sender: TObject);
begin
Start1.Caption:='Start';
Timer2.Enabled:=false;
end;

procedure TMainForm.Timer3Timer(Sender: TObject);
begin
Start1.Caption:='Stop';
Timer3.Enabled:=false;
end;

[edit] Timer1 ist der timer der an und aus geschaltet werden soll[/edit]

Danke im voraus !

[sakura]

Ändere den Titel in etwas aussagekräftiges

......

[S2B]

Zitat:

Delphi-Quellcode:

procedure TMainForm.Start1Click(Sender: TObject);
begin
if Start1.Caption = 'Start' then
begin
   Timer3.Enabled:=true;
   Timer1.Enabled:=true;
end;

Du aktivierst beide Timer. Deswegen kann es gar nicht gehen.

Edit: Oh, hab die Zahlen verwechselt!

[ripper8472]

doch, das geht schon, weil timer1 was ganz anderes macht als timer2 und 3.

schau doch mal nach, wie lang die intervall zeiten der timer sind.

[NikoMitDaMacht]

Also timer2/3 haben beide einen interval von 1

[NikoMitDaMacht]

kennt irgend jemand eine einfachere lösung?

[scp]

Warum nicht einfach so?

Delphi-Quellcode:

procedure TMainForm.Start1Click(Sender: TObject);
begin
if Start1.Caption = 'Start' then
begin
   Timer1.Enabled:=true;
   Start1.Caption:='Stop';
end
else  // Mit else gibts kein Durcheinander
if Start1.Caption = 'Stop' then
begin
   Timer1.Enabled:=False;
   Start1.Caption:='Start';
end;
end;

[rantanplan99]

Also ersteinmal, warum brauchst du überhaupt Timer2/3? durch eine kleine änderung deiner Routine wird das überflüssig

Delphi-Quellcode:

procedure TMainForm.Start1Click(Sender: TObject);
begin
  if Start1.Caption = 'Start' then
  begin
    Timer1.Enabled:=true;
    Start1.Caption := 'Stop';
  end else
  begin
    Timer1.Enabled:=False;
    Start1.Caption := 'Start';
  end;
end;

Und nun zu deinem Problem das es nicht funktioniert:
Setzt mal bitte die propertyAutoHotKeys auf maManual Ich schätze bei dir ist die auf maAutomatic gesetzt, und dein 'Start' wird automatisch zu einem '&Start' deswegen ist keiner deiner if-Bedingungen wahr.

[NikoMitDaMacht]

Danke ihr hab recht.
Super

[Sharky]

Zitat von NikoMitDaMacht:

Danke ihr hab recht.
Super

Noch ein Tip am Rande: Warum machst Du deine Prüfung über die Caption? Prüfe doch besser auf Timer.Enabled