Einzelnen Beitrag anzeigen

Benutzerbild von NikoMitDaMacht
NikoMitDaMacht

Registriert seit: 27. Apr 2004
Ort: Freiburg
298 Beiträge
 
Delphi 6 Enterprise
 
#1

warum Funktionniert code nicht zum an/aus schalten des Timer

  Alt 28. Jul 2004, 15:28
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 = 'Startthen
begin
   Timer3.Enabled:=true;
   Timer1.Enabled:=true;
end;
 if Start1.Caption = 'Stopthen
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 !
Niko
Alles was ein Ende hat, hat auch ein Anfang
  Mit Zitat antworten Zitat