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;
Delphi 非主窗体(即子窗体)在任务栏显示按钮
猜你喜欢
转载自www.cnblogs.com/windson/p/12570400.html
今日推荐
周排行