1. 如何让一个窗口总是处于各窗口的最上层

代码如下：

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _

ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Const HWND_TOPMOST = -1

Private Sub Form_Load()

SetWindowPos Me.hwnd,HWND_TOPMOST,Me.Left/Screen.TwipsPerPixelX, _

Me.TopScreen.TwipsPerPixelY,Me.WidthScreen.TwipsPerPixelX, _

Form1.Height Screen.TwipsPerPixelY, 0

End Sub

2. 如何让一个窗口总是处于各窗口的最上层

代码如下： Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Const HWND_TOPMOST = -1 Private Sub Form_Load() SetWindowPos Me.hwnd,HWND_TOPMOST,Me.Left/Screen.TwipsPerPixelX, _ Me.TopScreen.TwipsPerPixelY,Me.WidthScreen.TwipsPerPixelX, _ Form1.Height Screen.TwipsPerPixelY, 0 End Sub。

3. 怎么做到让程序窗口始终显示在桌面最上层,即始终掩盖在其他打开的

今天我尝试了一下，在窗体打开的时候开一个线程，然后这个线程里面一直设置TopMast=true就可以解决你的问题.

Thread mustTop = new Thread(() =>

{

while (!this.IsDisposed)//如果程序没有关闭，他就一直在上面.

{

this.Invoke(new Action(() =>

{

this.TopMost = true;

}));

Thread.Sleep(1000)；//可以隔一段时间设置一次

}

});

mustTop.Start();

4. 非主窗体如何保持总在最上层

转贴：我用了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;。