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".