首页 / 知识

关于表格：Delphi MDI Application和MDI Children的标题栏

2023-04-12 01:39:00

Delphi MDI Application and the titlebar of the MDI Children

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

有没有一种方法可以控制MDI Children的外观，从而避免每个窗口上都有大型XP样式的标题栏？

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

您所有需要的-重载过程CreateWindowHandle，如下所示：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

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.

MDI的工作方式与您要尝试做的事情并不一致。

如果需要" MDI"格式，则应考虑使用内置或商业对接程序包，并使用对接设置来模仿MDI感觉。

在我的Delphi应用程序中，我经常使用TFrames并将它们作为主窗体的父项，并最大化它们，以便它们占用客户区。这为您提供了类似于Outlook外观的内容。它有点像这样：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

TMyForm = class(TForm)
private
FCurrentModule : TFrame;
public
property CurrentModule : TFrame read FModule write SetCurrentModule;
end;

procedure TMyForm.SetCurrentModule(ACurrentModule : TFrame);
begin
if assigned(FCurrentModule) then
FreeAndNil(FCurrentModule); // You could cache this if you wanted
FCurrentModule := ACurrentModule;
if assigned(FCurrentModule) then
begin
FCurrentModule.Parent := Self;
FCurrentModule.Align := alClient;
end;
end;

要使用它，您只需执行以下操作：