Message erhalten während modaler Dialog offen

[sakura]

Oder nutze einfach diesen simple Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Pred(Screen.FormCount) do
    if fsModal in Screen.Forms[I].FormState then
      ShowMessage('modal form found');
end;

......