Hy,
ich habe versucht, den Timer mit folgender Eingabe zu
unterbrechen, doch es funktioniert noch immer nicht...
Code:
procedure TForm3.Timer2Timer(Sender: TObject);
begin
Panel2.Caption := TimeToStr(Time);
Panel1.Caption := DateToStr(Date);
Timer2.Enabled:=False;
try
if (Date >= StrToDate(Edit2.Text)) and (Date <= StrToDate(Edit5.Text)) then timer1.Enabled := true;
if (Time > StrToTime(Edit3.Text)) and (Time < StrToTime(Edit6.Text)) then timer1.Enabled := true;
if (Date >= StrToDate(Edit5.Text)) then timer1.Enabled := false ;
if (Time > StrToTime(Edit6.Text)) then timer1.Enabled := false ;
except
ShowMessage ('Fehler')
end;
Timer2.Enabled:=True;
end;
Was mach ich denn falsch?
Gruß
Thorsten