Hi Leutz,
ich brauch mal Schützenhilfe bei ner wahrscheinlich sehr simplen Sache.
Ich möchte folgenden Code nicht 10 mal schreiben sondern die Timer "durchzählen".
Code:
procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (timer1.enabled=false) then
timer1.enabled:=true
else
timer1.enabled:=false;
form2.label1.visible:=true;
form2.label1.color:=clMaroon;
end;
Das soll so funktionieren das ein Klick auf Shape1 der Timer1 gestartet und gestoppt wird,Shape2 den Timer2 usw.
Helft mir mal bitte
Privateer