窗体始终置于最前但不是主窗体

我用了SetWindowPos函数，窗体是启动的主窗体时，就可以。

但是如果窗体是在另一个窗体中通过form.show方法显示出来时，怎么也不行了。

原因是什么呢？

　

/////////////////////////

方法一：

先setforegroundwindow(HWND)；然后再setwindowpos(form2.Handle,HWND_TOPmost,10,10,200,300,SWP_SHOWWINDOW );

////////////////////////

方法二：

关键技术是重载Form的CreateParams方法

{form2 code}

public

procedure CreateParams(Var Params:TCreateParams);override;

uses unit1;

procedure tform2.CreateParams(var Params:TCreateParams);

begin

inherited;

With Params do

begin

wndParent:=GetDesktopwindow;

ExStyle:=ExStyle or WS_EX_TOPMOST;

end;

end;

procedure TForm2.FormClose(Sender :TObject;var Action:TCloseAction);

begin

Form1.show;

ShowWindow(Application.handle,sw_show);

end;

　

{Form1}

uses unit2;

procedure TForm1.Button1Click(Sender:TObject);

begin

with tform2.create(self) do show;

hide; {Hide Form1}

ShowWindow(Application.handle,sw_hide); {Hide Application}

end;