Конференция "Начинающим" » Событие при закрытии Panel после перетаскивания [D7, 2003]
 
  • Raisa © (07.12.17 13:58) [0]
    При установке Panel.DragMode:=dmAutomatic;  Panel.DragKind:=dkDock; какое событие возникает при закрытии "крестиком" панели?
  • ВладОшин © (08.12.17 08:49) [1]
    Как вариант проверки подобного

    type
     TPanel = class(ExtCtrls.TPanel)
     protected
       procedure WndProc(var Msg: TMessage); override;
     end;

     TForm1 = class(TForm)
       pnl1: TPanel;
       pnl2: TPanel;
       mmo1: TMemo;
       ck1: TCheckBox;
     private      { Private declarations }
     public      { Public declarations }
     end;

    var
     Form1: TForm1;

    implementation
    {$R *.dfm}

    { TPanel }

    procedure TPanel.WndProc(var Msg: TMessage);
    begin
     if Msg.Msg=45067 then
       Form1.mmo1.Lines.Add(self.Caption + ' Close');

    //  if Form1 <> nil then
    //    if Form1.ck1 <> nil then
    //      if Form1.ck1.Checked then
    //          Form1.mmo1.Lines.Add(Format('Msg.Msg=%d,Msg.WParam=%d,Msg.LParam=%d',[Msg.Msg,Msg.WParam,Msg.LParam]));
     inherited;
    end;
  • Raisa © (12.12.17 08:48) [2]
    Спасибо, работает. Думала, это будет попроще.
 
Конференция "Начинающим" » Событие при закрытии Panel после перетаскивания [D7, 2003]
Есть новые Нет новых   [88911   +5][b:0.001][p:0.001]