Form auf fsStayOnTop setzen

[Tim.exe]

Hallo,

ich schaffe es irgendwie nicht eine Form auf 'fsStayOnTop' zu setzen.

Habe folgendes schon ausprobiert:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
begin
SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.FormStyle := fsStayOnTop;
Form2.ShowModal;
end;

Selbstverständlich ist im Objektinspektor von Form2 auch fsStayOnTop deklariert...aber es will nicht...