2013年1月15日星期二

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

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

Delphi的子窗体显示在任务栏上面，把BorderStyle设置为bsNone，但这个时候任务栏单击无法最小化和还原，怎么处理呢？

 最新评论
共1条
参考如下代码：
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;

发帖者 时间：

没有评论:

发表评论

订阅： 博文评论 (Atom)