实现netants一样的悬浮窗: Public procedure Createparams(Var Params:TCreateParams);override; ...procedure TFormDrop.Createparams(var Params:TCreateParams); begin Inherited CreateParams(Params); With Params do begin EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME wndParnet:=GetDesktopWindow; //关键一行,用SetParent都不行!! end; end;
当最小化的时候,隐藏主窗口,添加systrayicon,这样就可以让那个小窗口不至于一起被最小化。
不知道你发现没有,当netants和flashget点窗体上的关闭按钮的时候,不会真的关闭,而是最小化,这肯定是拦截了系统消息。至于哪个消息,我对这个不是很熟悉,暂且upp
Public
procedure Createparams(Var Params:TCreateParams);override;
...procedure TFormDrop.Createparams(var Params:TCreateParams);
begin
Inherited CreateParams(Params);
With Params do
begin
EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME
wndParnet:=GetDesktopWindow; //关键一行,用SetParent都不行!!
end;
end;