Delphi的子窗体BorderStyle为bsNone的时候怎么通过任务栏单击最小化和还原呢?

50 | 问答知识库用户 |浏览338次
收藏|2014/05/17 22:00
Delphi的子窗体显示在任务栏上面,把BorderStyle设置为bsNone,但这个时候任务栏单击无法最小化和还原,怎么处理呢?

满意回答

2014/05/21 21:14

参考如下代码:
procedure TForm4.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WndParent := 0;
end;

procedure TForm4.InitSysMenu;
var
  WindowStyle: Integer;
begin
  WindowStyle := GetWindowLong(Handle, -16);
  WindowStyle := WindowStyle or WS_SYSMENU or WS_MINIMIZEBOX;
  SetWindowLong(Handle, -16, WindowStyle);
end;

procedure TForm4.FormCreate(Sender: TObject);
begin
  InitSysMenu;
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...