引言: 請問各位前輩一個問題 當使用Docking，關掉x鈕時，觸發的是什麼事件？謝謝!

引言: 請問各位前輩一個問題 當使用Docking，關掉x鈕時，觸發的是什麼事件？謝謝!!

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   procedure MyFormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}
type TMyCustomDockForm = class(TCustomDockForm);
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Panel1.Floating then
    TMyCustomDockForm(Panel1.Parent).OnClose := MyFormClose; // Assign TCustomDockForm OnClose Event
end;    procedure TForm1.MyFormClose(Sender: TObject; var Action: TCloseAction);
begin
  Showmessage('Float Dock Form Closing');
end;

引言: jest0024您好 請問怎麼欄劫？謝謝!!

type
  TPanel = class(ExtCtrls.TPanel)
  public
    procedure WndProc(var Msg:TMessage);override; //攔劫TPanel程序
    procedure WClose(var Msg:TMessage);message WM_WM_DOCKCLOSE; //自訂元件事件
  end;
  TForm1 = class(TForm)
  ....
  public
    procedure WndProc(var Msg:TMessage);override;  //攔劫TForm程序
  end;