ドッキングについて (ID：29997)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

自己レスです
ずーーっと試行錯誤していました。
それで判ったのですが、
Ｐａｎｅｌ1にＭＥＭＯ１とＰａｎｅｌ２を乗せて
Ｆｏｒｍ１をＰａｎｅｌ２にドッキングすることで
私のやりたかったことが出来ました。
（始まりが、難しく考えすぎていました。)
ようやく解決にチェックできます。
下記にお粗末ながらコードをアップします
KHE00221 様有り難う御座いました。

Memo1.Align := alTop;
Panel2.Align := alBottom ;
/////////////////////////////////////////////////////////////////
const
  DockPanelHeight = 150;

procedure TfrmMain.FormShow(Sender: TObject);
begin
  Panel2.Height := 0 ;
  Memo1.Align := alClient;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  // フォームを画面外に表示
  Form1.Left := -2000;
  // フォームの表示
  Form1.Show;
  Form1.ManualDock(Panel2, nil, alClient);
  Panel2.Height := DockPanelHeight;
end;

procedure TfrmMain.Panel2DockDrop(Sender: TObject;
          Source: TDragDockObject; X, Y: Integer);
begin
    Panel2.Height := DockPanelHeight;
end;

procedure TfrmMain.Panel2DockOver(Sender: TObject;
          Source:TDragDockObject;X, Y: Integer; State: TDragState;
          var Accept: Boolean);
var
  lRect: TRect;
begin

Memo1.Align := alNone;
  Panel2.Height := DockPanelHeight;
  lRect.TopLeft := Panel2.ClientToScreen(Point(0, 0));
  lRect.BottomRight := Panel2.ClientToScreen
                     (Point(Panel2.Width, DockPanelHeight));
  Source.DockRect := lRect;
end;

procedure TfrmMain.Panel2UnDock(Sender: TObject; Client:TControl;
          NewTarget: TWinControl; var Allow: Boolean);
begin
  Panel2.Height := 0 ;
  Memo1.Align := alClient;
end;

////////////////////////////////////////////////////////////////////
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 frmMain.Panel2.Height := 0 ;
 frmMain.Memo1.Align := alClient;
end;

←解決時は質問者本人がここをチェックしてください。

戻る