Showmodal ergibt ein nicht-modales Fenster! Warum?

[Chris Hofmann]

Folgendes Problem:<BR>

Ein Detailfenster soll dynamisch erzeugt und modal angezeigt werden. Einige Aktionen (Hier neuer Datensatz) sollen mit dem erzeugten Formular ausgeführt werden.

<PRE>
procedure THauptformular.A_PR_02Execute(Sender: TObject);
begin
with TFRM_SONDERPREIS.Create(Hauptformular) do
begin
visible:=false;
if not (TB_PREIS.active) then TB_PREIS.Open;
TB_PREIS.Append;
showmodal;
Release;
end;
end;
</PRE>

Das erzeugte Fenster lässt sich aber in den Hintergrund klicken. Lässt man die Aktionen mit dem Formular weg, also so

<PRE>
procedure THauptformular.A_PR_02Execute(Sender: TObject);
begin
with TFRM_SONDERPREIS.Create(Hauptformular) do
begin
visible:=false;
showmodal;
Release;
end;
end;
</PRE>

funzt es einwandfrei.
Achso: MDIAplication (aber TFRM_SONDERPREIS fsNormal) Delphi7, WinXP, ADOKomponenten in TFRM_SONDERPREIS

Wer kennt so etwas? Tks

[Mario.Noack]

Unter Windows XP gibt es zeitweise solche Effekte, wenn man mit einem modalen Fenster zu lange keine Rückmeldung (Application.ProccessMessage) gibt. Schaue doch mal im OnShow nach, ob da zeitaufwändiger COde drin ist und erweitere den entsprechend. Dann könnte es gehen.<p>
Schöne Grüße, Mario Noac