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 !