非主窗体在任务栏显示按钮
type TForm2 = class(TForm) private { Private declarations } public { Public declarations } procedure CreateParams(var Params:TCreateParams); override; end; ... procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.WndParent := GetDesktopWindow; end;
http://www.cnblogs.com/hs-kill/p/4683449.html
时间: 2024-10-23 23:22:19