Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
Delphi 10.4 Sydney
|
AW: AV aus dem Nirgendwo beim Beenden
29. Apr 2015, 15:19
Könnte doch mit dem Timer zusammenhängen. Wie isses denn so?
Delphi-Quellcode:
procedure TForm1.FormDestroy(Sender: TObject);
begin
FTimerEnabled := false;
FDingens.Free;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
try
if FTimerEnabled then
FDingens.MachWas;
finally
if FTimerEnabled then
Timer1.Enabled := true;
end;
end;
|