Wieso läuft Timer weiter wenn MessageDlg gezeigt wird?

[littleDave]

Stell dir die Funktion ShowModal einfach als Schleife vor:

Delphi-Quellcode:

// Pseudocode
function TForm.ShowModal: TModalResult;
begin
  // Zuerst Enabled aller anderen Fenster auf False setzen
  for i:=0 to Screen.Form.Count-1 do
    if Screen.Forms[i] <> Self then 
      Screen.Forms[i].Enabled := False;

  // Dann die Schleife
  while not Self.KnopfGedrückt do 
  begin
    Sleep(1);
    Application.ProcessMessages;
  end;

  // und zum schluss noch die anderen Forms wieder reaktivieren
  for i:=0 to Screen.Form.Count-1 do
    if Screen.Forms[i] <> Self then 
      Screen.Forms[i].Enabled := True;
end;

Vielleicht ist es dadurch verständlicher, warum die darauffolgende Zeile erst nach der Funktion ShowModal aufgerufen wird: die Anwendung hängt in der Schleife