关于右上角的那个窗体,你可以把窗体设计成你需要的样子后,使用下面代码 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; 右下角的图标,建议你还是找个控件吧,好用些。
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; 右下角的图标,建议你还是找个控件吧,好用些。
CoolTrayIcon