Delphi MDI 应用程序和 MDI 子项的标题栏

Question

我有一个用 Delphi 2006 编写的 MDI 应用程序，它以默认主题运行 XP。

有没有办法控制 MDI 子项的外观以避免每个窗口上出现 XP 风格的大标题栏？

我尝试将 MDIChildren 的 BorderStyle 设置为 bsSizeToolWin，但它们仍然呈现为普通表单。

Answer 1

您的所有需要​​ - 重载过程 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.