取消固定和关闭取消固定之间的区别

Question

当用户单击固定表单上的“x”时，将调用 OnClose。

当用户在未固定的表单上单击“x”时，将调用 OnHide

当用户在固定的表单上单击“UnPin”时，将调用 OnHide。

我正在尝试将可见表单与菜单系统同步，但我不知道如何确定用户单击“x”和用户单击“UnPin”时 OnHide 事件之间的差异。我想拦截“x”并调用 Close。

每个子项都是 TManagerPanel 的后代，而 TManagerPanel 又是 TForm 的后代，边框样式设置为 bsSizeToolWin，拖动类型设置为 dkDock，拖动模式为 dmAutomatic。

type
    TPanelManager = class(TForm)
    ...
    private
    ...        
        Panels: TManagerPanelList;
        Settings: TSettings; //User Settings
    ...
end;
...

function TPanelManager.InitChild(ChildClass: TManagerPanelClass): TManagerPanel;
var
    Child: TManagerPanel;
begin
    Child := ChildClass.Create(Self);
    Child.Connection := MSConnection1;
    Child.Settings := Settings;
    Child.Styles := Styles;
    ...
    Child.OnPanelClosed := PanelClosed;
    Child.OnPercentChanged := PercentChanged;
    ...
    Child.OnPanelHide := PanelHide;
    Child.Font := Font;
    Child.Initialise;
    Child.ManualDock(DockTarget);
    Panels.AddPanel(Child);
    Result := Child;
end;

procedure TPanelManager.PanelClosed(Sender: TObject; var Action: TCloseAction);
var
    MenuItem: TMenuItem;
    Child: TManagerPanel;
begin
    if Sender is TManagerPanel then
    begin
        Child := TManagerPanel(Sender);
        Action := caFree;
        MenuItem := MenuItemFromChild(Child);
        MenuItem.Checked := False;
        Settings[RemoveAmpersand(MenuItem.Caption)] := MenuItem.Checked;
        Panels.Remove(Child);
    end;
end;

编辑： 我所说的“固定”表单是什么意思：带有固定针的固定表单，使其始终可见。

“未固定”表单的含义：释放固定的固定表单，以便选项卡出现在停靠栏中选项卡设置，并且选择选项卡时会出现表单。

Delphi 版本是 2007

Answer 1

似乎固定和取消固定停靠的表单会更改它在 TTabDockPanel 和我将其停靠到的 TPanel 之间的父级。

将 OnHide 方法添加到演示 Dock 表单...

procedure TfrmDock.FormHide(Sender: TObject);
begin
  if Assigned(Self.Parent) then
      ShowMessage(Self.Parent.ClassName)
  else 
      ShowMessage('No Parent');
end;

现在，当表单隐藏时，我可以区分“浮动”、“停靠、固定”和“停靠、取消固定”。

编辑
我找到了一种更好的方法来做到这一点，

procedure TfrmDock.FormHide(Sender: TObject);
begin
    if Assigned(Parent) then
    begin
        if Not (csDocking in ControlState) then //This was the original test above
        begin
            if Parent is TTabDockPanel then // This is now a safety check
            begin
                if TTabDockPanel(Parent).AnimateSpeed = 1 then //Additional Test
                    //form is closing
                else
                    //form is hiding (Unpinned focused changed)
            end;
        end
        else 
            //form is being unpinned.
    end;
end;

在DockCaptionMouseUp中，动画速度设置为1，以便面板看起来关闭（隐藏得非常快）。 “取消固定”也会发生同样的情况，但控制状态会发生变化。