Delphi 停靠窗体隐藏面板答案

【问题标题】：Delphi-docking form hides panelDelphi 停靠窗体隐藏面板
【发布时间】：2021-12-14 16:03:11
【问题描述】：

我有一个问题，停靠表单隐藏了面板内的一些其他组件。

这是我的问题的简单示例：我将 Panel1 的 DockSite 设置为 True。 Panel1 内部是 Panel2。 Panel2 与客户端对齐 (Align=alClient)。 Panel2 内部是与客户端对齐的备注字段。它与整个 Panel1 重叠。我有另一个要停靠到 Panel1 的表单 (Form2)。但它与整个 Panel1 重叠并隐藏了备忘录。我只想重叠 Panel1 的一部分（表单的宽度）并将 Panel2 移动到右侧或左侧。

主要形式：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

end.


object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 333
  ClientWidth = 754
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 15
  object Button1: TButton
    Left = 288
    Top = 271
    Width = 153
    Height = 41
    Caption = 'Show dockable form'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 729
    Height = 257
    Caption = 'Panel1'
    DockSite = True
    TabOrder = 1
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 727
      Height = 255
      Align = alClient
      Caption = 'Panel2'
      TabOrder = 0
      ExplicitLeft = 360
      ExplicitTop = 8
      ExplicitWidth = 337
      ExplicitHeight = 241
      object Memo1: TMemo
        Left = 1
        Top = 1
        Width = 725
        Height = 253
        Align = alClient
        Lines.Strings = (
          'Memo1')
        TabOrder = 0
        ExplicitWidth = 216
        ExplicitHeight = 144
      end
    end
  end
end

对接形式：

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Label1: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'Form2'
  ClientHeight = 103
  ClientWidth = 273
  Color = clBtnFace
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 15
  object Label1: TLabel
    Left = 22
    Top = 24
    Width = 227
    Height = 45
    Caption = 'Dockable form'
    DragKind = dkDock
    DragMode = dmAutomatic
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -33
    Font.Name = 'Segoe UI'
    Font.Style = []
    ParentFont = False
  end
end

【问题讨论】：

根据您的描述，您的Panel2 和Form2 似乎同时与alClient 对齐。但是当在同一个容器/组件中对齐多个窗口/控件时，只有其中一个可以使用alClient 对齐。其余控件/窗口需要使用其他对齐类型，例如alTop、alBottom、alLeft 或alRight，以确保它们不会相互重叠。因此，当您将Form2 放在Panel1 组件上时，请尝试更改`Panel2` 的对齐方式。
它没有帮助。表单仍然与“Panel2”重叠。尝试将表单和面板对齐设置为“alLeft”和“alRight”。

标签： delphi

【解决方案1】：

随着码头站点的变化和路线的变化，很快就很难掌握动态，但我认为以下内容将满足您的要求。

将Form1 的层次结构更改为以下内容，并注意Panel2 和Memo1 都是Panel1 的子级。 Panel2 将作为对接目标。我已将Panel2.Width 设置为 8，以便在可视区域放置Form2。以下是基本属性：

object Form1: TForm1
  object Button1: TButton
  object Panel1: TPanel
    Caption = 'Panel1'
    object Panel2: TPanel
      Width = 8
      Align = alRight
      Caption = 'Panel2'
      DockSite = True
      OnDockDrop = Panel2DockDrop
      OnDockOver = Panel2DockOver
      OnUnDock = Panel2UnDock
    end
    object Memo1: TMemo
      Align = alClient
    end
  end
end

当Form2 被拖到Panel2 上时，OnDockOver 事件被触发。 Panel2 将其宽度设置为 Panel1 宽度的一半，这反过来又以相同的量减小了 Memo1 宽度。（根据需要更改）

procedure TForm1.Panel2DockOver(Sender: TObject; Source: TDragDockObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Panel2.Width := Panel1.Width div 2;
end;

~~当Form2 放在Panel2 上时，表单的DockRect 设置为Panel2 的矩形。~~

procedure TForm1.Panel2DockDrop(Sender: TObject; Source: TDragDockObject; X, Y: Integer);
begin
  Source.DockRect := Rect(Panel2.Width, Panel2.Top, Panel2.Width, Panel2.Height);
end;

当Form2 从Panel2 取消停靠时，它会将其宽度减小到8 个像素，这又将Memo1 加宽到其原始宽度。

procedure TForm1.Panel2UnDock(Sender: TObject; Client: TControl; NewTarget: TWinControl;
  var Allow: Boolean);
begin
  Panel2.Width := 8;
end;

这是Form1 的完整.dfm：

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 333
  ClientWidth = 425
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 15
  object Button1: TButton
    Left = 120
    Top = 284
    Width = 153
    Height = 41
    Caption = 'Show dockable form'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 400
    Height = 257
    Caption = 'Panel1'
    TabOrder = 1
    object Panel2: TPanel
      Left = 391
      Top = 1
      Width = 8
      Height = 255
      Align = alRight
      Caption = 'Panel2'
      DockSite = True
      TabOrder = 0
      OnDockDrop = Panel2DockDrop
      OnDockOver = Panel2DockOver
      OnUnDock = Panel2UnDock
      ExplicitLeft = 394
    end
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 390
      Height = 255
      Align = alClient
      Lines.Strings = (
        'Memo1')
      TabOrder = 1
      ExplicitWidth = 725
      ExplicitHeight = 253
    end
  end
end

【讨论】：