こんにちは。シンです。



　D4のIDEで使われているツールバーの簡単な実現方法です。メニューバーは
http://www.inprise.co.jp/qanda/delphi/d0009472.htmlを通して入手できる
TMenuBarで簡単に実現できますが、ツールバーについては特に記述がありません
よね。
　TControlBarの上にTToolBarを配置して、TToolBarのDragKindをdkDockにする
と、かなり近くはなるんですが、フローティングさせたときに移動しようとする
と点線になってしまい、ツールバーが表示された状態で移動してくれません。
　この状態からさらにToolBarのOnStartDockイベントに次のように記述するだけ
で実現できます。

procedure TForm1.ToolBar1StartDock(Sender: TObject;
  var DragObject: TDragDockObject);
begin
  DragObject := TToolDockObject.Create(Sender as TToolBar);
end;


　あと状態の保存とか、Wrapableプロパティのコントロールとかの必要もありそ
うですが(^^;。


                99/08/03(Tue) 23:40   シン  with AirCraft v2.70Ab6
        s_furuya@xa2.so-net.ne.jp   http://member.nifty.ne.jp/s_furuya/

Original document by シン            氏 ID:(PDD01745)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。