Z-Order von Formularen?

[ralfiii]

Ein ganz ein primitives Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Backgrnd : TForm;
begin
     Backgrnd:=TForm.Create(self);
     try
        Backgrnd.Show;
        ShowMessage('Hello!');
     finally
            Backgrnd.Free;
     end;
end;

Wenn man das ShowMessage wegclickt verschwindet (bei mir zumindest) die Applikation unter die Delphi-IDE.
Oder als Standalone-App: Die Anwendung sinkt dann in der Z-Oder um 1 nach unten.

Wieso denn das?!?

[toms]

Hallo

Da müsste man wohl in den VCL Sourcen wühlen, um den Grund zu erfahren.

Ein Aufruf von SetForeGroundWindow(Handle); würde Abhilfe schaffen.