Delphi MDI应用程序和MDI Children的标题栏

发布时间：2020-12-15 09:23:38 所属栏目：大数据来源：网络整理

导读：我有一个用Delphi 2006编写的MDI应用程序,它使用默认主题运行XP. 有没有办法控制MDI儿童的外观,以避免每个窗口上的大型XP风格标题栏？我已经尝试将MDIChildren的BorderStyle设置为bsSizeToolWin,但它们仍然呈现为普通的Forms. 解决方法所有你需要的 – 重

我有一个用Delphi 2006编写的MDI应用程序,它使用默认主题运行XP.

有没有办法控制MDI儿童的外观,以避免每个窗口上的大型XP风格标题栏？

我已经尝试将MDIChildren的BorderStyle设置为bsSizeToolWin,但它们仍然呈现为普通的Forms.

解决方法

所有你需要的 – 重载程序CreateWindowHandle,如下所示：

unit CHILDWIN;
interface
uses Windows,Classes,Graphics,Forms,Controls,StdCtrls;

type
  TMDIChild = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CreateWindowHandle(const Params: TCreateParams); override;
  end;

implementation

{$R *.dfm}
procedure TMDIChild.CreateWindowHandle(const Params: TCreateParams);
begin
  inherited CreateWindowHandle(Params);
  SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;
end.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!