如题
0 011101 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #2 http://delphibbs.com/delphibbs/dispq.asp?lid=2545515
X xuxiaohan Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #3 马上给分??说话算数(根据你的需要可以改Style,StyleEx)<br>procedure TfmNotify.Createparams(var params: TCreateParams);<br>begin<br> inherited CreateParams(Params);<br> with params do<br> begin<br> params.Style:=WS_POPUP or WS_BORDER;<br> Params.ExStyle := WS_EX_TOOLWINDOW or [blue]WS_EX_TOPMOST[/blue] or WS_EX_NOACTIVATE or WS_EX_WINDOWEDGE;<br> [red] params.WndParent:=getDeskTopWindow;[/red] end;<br>end;<br>
马上给分??说话算数(根据你的需要可以改Style,StyleEx)<br>procedure TfmNotify.Createparams(var params: TCreateParams);<br>begin<br> inherited CreateParams(Params);<br> with params do<br> begin<br> params.Style:=WS_POPUP or WS_BORDER;<br> Params.ExStyle := WS_EX_TOOLWINDOW or [blue]WS_EX_TOPMOST[/blue] or WS_EX_NOACTIVATE or WS_EX_WINDOWEDGE;<br> [red] params.WndParent:=getDeskTopWindow;[/red] end;<br>end;<br>
我 我为歌狂 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #4 楼主是说让窗体处于显示器的最上面,还是让窗体处在所以应用程序窗体的最前面.....
C charlie_sky Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #7 xuxiaohan,你那个在delphi中该怎么用呀
X xuxiaohan Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #8 你在你的Form中声明<br> procedure Createparams(var params: TCreateParams);<br><br>...<br>implementation<br>//假如你的是Form1<br>procedure TForm1.Createparams(var params: TCreateParams);<br>begin<br> ...<br>end;
你在你的Form中声明<br> procedure Createparams(var params: TCreateParams);<br><br>...<br>implementation<br>//假如你的是Form1<br>procedure TForm1.Createparams(var params: TCreateParams);<br>begin<br> ...<br>end;
K kukuasir Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #10 SetWindowPos(handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
我 我是一只小小鸟 Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #11 哈哈老问题了.<br>procedure CreateParams(var Params: TCreateParams); override;<br><br>procedure TForm.CreateParams(var Params: TCreateParams);<br>begin<br> inherited CreateParams(Params);<br> with Params do begin<br> Style := WS_POPUP or WS_THICKFRAME or WS_BORDER;<br> ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST;<br> end;<br>end;
哈哈老问题了.<br>procedure CreateParams(var Params: TCreateParams); override;<br><br>procedure TForm.CreateParams(var Params: TCreateParams);<br>begin<br> inherited CreateParams(Params);<br> with Params do begin<br> Style := WS_POPUP or WS_THICKFRAME or WS_BORDER;<br> ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST;<br> end;<br>end;
X xuxiaohan Unregistered / Unconfirmed GUEST, unregistred user! 2004-04-13 #12 可以的,我就这样用的,不信你问问别人。<br>