先将窗口的BorderStyle设为bsNone,FormStyle设为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;