L linjifan Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-11 #1 我用setwindowspos()已成功将form1设置为总显示在最前面的! 可form2就不行!
C caowei Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-11 #4 我试验了,如果设置了form1,又设置了form2, 那就两个都不是再最前面了。 需要在form2里面增加一些代码: ... TForm2 = class(TForm) procedure FormCreate(Sender: TObject); procedure CreateParams(var Params: TCreateParams); private { Private declarations } public { Public declarations } end; ... procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.WndParent := 0;e end;
我试验了,如果设置了form1,又设置了form2, 那就两个都不是再最前面了。 需要在form2里面增加一些代码: ... TForm2 = class(TForm) procedure FormCreate(Sender: TObject); procedure CreateParams(var Params: TCreateParams); private { Private declarations } public { Public declarations } end; ... procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited; Params.WndParent := 0;e end;
L linjifan Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-11 #5 我的意思是,将from2设置成为windows的所有窗体的最前面,就向qq那样的! 我用这个方法,可以将from1,设置在为windows的最前面的窗体,可以在form2中就不行了! SetWindowPos(form1.handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
我的意思是,将from2设置成为windows的所有窗体的最前面,就向qq那样的! 我用这个方法,可以将from1,设置在为windows的最前面的窗体,可以在form2中就不行了! SetWindowPos(form1.handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
H hgl780428 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-12 #6 将form2的formstyle属性设置成fsstayontop 应该可以的
太 太阳河上 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-12 #7 hg1780428说的正确,就是设置formstyle属性为fsstayontop就行
C coolcat Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-12 #8 应该是: SetWindowPos(form2.handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
C caowei Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-12 #9 你在form1里面也设置了吗?还是只设置了form2?