Einzelnen Beitrag anzeigen

Viktorii

Registriert seit: 19. Jul 2007
358 Beiträge
 
#1

Wieso läuft Timer weiter wenn MessageDlg gezeigt wird?

  Alt 17. Okt 2008, 09:57
Hallo.

Ich habe ein wenig herumgespielt und ein Phänomen entdeckt mit dem ich so nicht gerechnet habe. Habe das nochmal in eine kleine Testapplikation zusammengefasst:

Delphi-Quellcode:
procedure TForm1.ButtonShowMsgClick(Sender: TObject);
begin
  MessageDlg('Dlg', mtWarning, [mbOK], 0);
  Label2.Caption := 'nach Dlg';
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Counter := 0;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Label1.Caption := IntToStr(Counter);
    inc(Counter);
end;
Wenn ich die Anwendung nun starte, sehe ich das der Timer die Variable Count hochzählt und der Wert im Label1 dargestellt wird. Wenn ich nun meinen Button drücke, erscheint der MessageDlg. Die Caption von Label2 wird nicht geändert, bis ich den MessageDlg mit Ok bestätige. Des MessageDlg wird also modal angezeigt und die Ausführung bleibt da stehen.
Aber trotzdem läuft der Timer weiter während der MessageDlg angezeigt wird. Im Taskmanager wird angezeigt dass die Anwendung nur einen Thread hat.
Wieso ist das so?

Vielen Dank
  Mit Zitat antworten Zitat