Message erhalten während modaler Dialog offen

[OLLI_T]

Guten Morgen Roderich!

Hab eben versucht, Dein Szenario mit einem Timer(Message), einem OpenDialog und einer weiteren Form nachzuspielen. Also bei mir sieht das ganz nett aus. Wenn man einen kleinen Blick in die Unit Forms wirft und sich dort die Funktionen DisableTaskWindows und DoDisableWindow betrachtet, ist das eigentlich ganz schlüssig.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog.Execute;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If Not IsWindowEnabled(Self.handle) Then // Hier liegt der Hase im Pfeffer
     Label1.Caption:='Disabled';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  form2.Showmodal;
end;

Wenn´s was bringt freut sich ...

OLLI

Ps.: Nicht die Property Enabled nutzen. Das ist nur "VCL Schnickschnack".