Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
16. Dez 2003
Yepp, die letzten drei Worte klingen recht optimistisch.
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
16. Dez 2003
Meinst Du MessageBox etc... ich glaube nicht, da die von Windows erzeugt werden und somit keine Forms im Sinne von Delphi sind :|
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
16. Dez 2003
Oder nutze einfach diesen simple Code:
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to Pred(Screen.FormCount) do
if fsModal in Screen.Forms.FormState then
ShowMessage('modal form found');
end;