怎樣制作真正的TopMost窗口：

　　如果一個TOPMOST窗口不是MainForm的話，那么即將將它設(shè)為總在頂端，它也會隨著主窗口的前擺而前擺，后擺而后擺。那么怎么解決這個問題呢？

先將窗口的BorderStyle設(shè)為bsNone,FormStyle設(shè)為fsStayOnTop。
procedure TForm3.CreateParams(var Params:TCreateParams);
begin
inherited;
with Params do
begin
Style:=Params.Style xor WS_DLGFRAME;
WndParent:=0;//此行
end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
Width:=36;
Height:=36;
SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;