Timer blockiert Messagebox.

[haderlump]

Ich habe einen Timer der Kontakte abfrägt. Wenn ich nun eine Messagebox anzeige, kann ich diese nicht mehr schließen. Bei ausgeschaltetem Timer geht das aber.
Was kann ich denn da tun.

[Mathias]

Wo wird die MessageBox geöffnet ?
Wie schnell läuft dein Timer ?

Bei folgendem Code, kann ich die Dialoge problemlos schliessen.

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 10;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.MessageBox('abc', 'def');
  ShowMessage('Hallo');
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Color := Random($FFFFFF);
end;

Man müsste etwas mehr wissen, wieso es bei dir hängt.

[haderlump]

Ich hab jetzt mal das Timerinterval auf 100 hoch gesetzt. Jetzt geht es, Scheinbar ist die Behandlungsroutine in 1 Periode nicht fertig geworden.
ich werde jetzt mal den kritischen Wert ermitteln. Vielleicht kann ich auch in der Behandlung etwas abspecken.
Aber erst mal danke.

[Mathias]

ich werde jetzt mal den kritischen Wert ermitteln.

Bedenke dabei, das es auch PCs gibt, welche langsamer sind.

[haderlump]

Ja, das ist so, die alten Krücken können eben nicht schneller.
Gruß Fritz