Timer wird nicht deaktiviert?! [Gelöst]

[mark332]

Zuerst: Ich habe leider nicht herauslesen können, wo genau mein Problem jetzt hingehört und schreibe es deswegen erstmal in "Sonstiges". ;)

Mein Problem:
Wenn mein Programm startet, öffnet der Timer unbegrenzt den Dialog, bis man manuell alle Dialogfenster mit "OK" geschlossen hat, nun frage ich mich, warum überspringt der Timer scheinbar den Rest in dem zu ihm gehörigen Code?

Der betreffende Timer-Code:

Code: Alles auswählen

 
procedure TForm1.Timer_checkSettingsTimer(Sender: TObject);
begin
  if not FileExists('settings.ini') then
    begin
         MessageDlg('Settings.ini not found, please check your installation!', mtInformation, [mbOK], 0);
    end;
  Timer_checkSettings.Enabled := false;
  Sleep(500);
end; 
 

Sinn dahinter: Der Timer soll testen ob sich die Einstellungs-Datei (settings.ini) im Hauptverzeichnis befindet und, wenn nein, ein Dialog ausgeben, der den User informiert, und sich dann ausschalten, egal ob die Datei existiert oder nicht.


Freue mich auf eure Antworten und hoffe, dass einer mir helfen kann.

MfG mark332

[m.fuchs]

Er überspringt ihn nicht, er hat ihn nur nicht erreicht. MessageDlg wartet auf den Klick des Nutzers, das heißt also die folgenden Zeilen werden erst danach abgearbeitet.

1.) Deaktiviere den Timer am Anfang der Methode, also noch vor dem FileExists.

2.) Wozu ist das Sleep da?

3.) Wozu überhaupt ein Timer? Kannst du das Ganze nicht im TForm1.Create machen?

[mark332]

Das mit dem Timer vorher deaktivieren teste ich mal...
Das Sleep...ähh, achso, das ist damit ich beim testen überhaupt in der Lage war die ganzen Fenster wegzuklicken :D

Und mit TForm1.create hab ich mich noch nicht beschäftigt.

Edit: Danke :D das mit dem vorher deaktivieren hat geklappt, allerdings interessiere ich mich nun immernoch dafür, warum er den Rest "übersprungen" hat.
Wenn ich das nämlich weiß, kann ichs später vermeiden. ^^

[m.fuchs]

Bitte lies noch einmal die erste Zeile meines vorhergehenden Beitrags.

[mark332]

Ups xD hab ich nicht wahrgenommen

Danke