Einzelnen Beitrag anzeigen

Bjoerk

Registriert seit: 28. Feb 2011
Ort: Mannheim
1.384 Beiträge
 
Delphi 10.4 Sydney
 
#15

AW: AV aus dem Nirgendwo beim Beenden

  Alt 29. Apr 2015, 14: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;
  Mit Zitat antworten Zitat