ツールバーをドッキングする

SetParent（API関数）を使用して親ウインドウの設定を変えるだけでツールバーをドッキングすることが出来ます。



■使用するコンポーネント

Form1

Form2

■使用するAPI関数

■ソースは下記のようになります。

■Unit1(Form1)の処理
procedure TForm1.Button1Click(Sender: TObject);
begin
　Form2.visible:=True;
　//ドッキング
　Windows.SetParent(Form2.ToolBar1.Handle, Form1.Handle) ;
　Form2.visible:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
　Form2.Visible:=true;
　//ドッキング解除
　Windows.SetParent(Form2.ToolBar1.Handle, Form2.Handle) ;
end;






Win32APIのページへ