- 人气:
- 放大
- 缩小
- 二维码
- 赞赏
delphi 非主窗体(即子窗体)在任务栏显示按钮
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;