给你一段代码,可以让你的窗体至高无上:)<br>调试通过,试试吧:<br>unit Unit2;<br>interface<br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs;<br>type<br> TForm2 = class(TForm)<br> private<br> { Private declarations }<br> protected<br> procedure CreateParams(var Params: TCreateParams); override; //<<<<br> public<br> { Public declarations }<br> end;<br>var<br> Form2: TForm2;<br>implementation<br>{$R *.dfm}<br><br>procedure TForm2.CreateParams(var Params: TCreateParams); <br>begin<br> inherited CreateParams(Params);<br> Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST;<br> Params.WndParent := GetDesktopWindow();<br>end;<br><br>end.<br>**********************<br>或者修改你的参数:<br>SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW or SWP_NOMOVE or SWP_NOSIZE);<br>