这东东我以前问过,并修改如下,主要是重载TForm的CreateParams方法来改变该窗口
的Parnet,如:
protected
procedure CreateParams(Var Param:TCreateParams);override;
...
procedure TForm2.CreatePrams(Var Param:TCreateParams);
begin
inherited CreateParams(Param);
With Param do
begin
ExStyle:=ExStyle or WS_EX_TOPMOST or WS_EX_DLGFRAME or WS_EX_TOOLWINDOW or WS_EX_ACCEPTFILES;
~~~~~~~~~~~~~ ~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~
总在最前 去掉标题栏 窗口不在任务条上显示 接受文件拖放
wndParent:=GetDesktopWindow;
end;
end;