掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TControlBar に TToolBar を DLL から追加したい (ID:19300)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Windows 2000/Delphi 7 Professional にて 実験用に Main.exe と Plug.dll の２つを作成しました。 Main.exe には、Form1 : TForm の上に ControlBar1 : TControlBar があります。 Plub.dll <--> Main.exe 間で CallBack にて ControlBar1 のハンドルを取得できるようにています。 Exe が起動したら DLL の Show関数を呼び、DLL 側では procedure Show(); stdcall; export; begin BarHnd := CallBackGetHandle(); // ExeにControlBarのハンドルを要求 ToolBar := TToolBar.Create(Application); // 終了時にApplicationに破棄してもらう ParentWindow := BarHnd; // 親のハンドル(VCL) Color := clBlue; Windows.SetParent( ToolBar1.Handle, BarHnd ); // 親のハンドル(Windows) end; としてにて、表示することはできました。 しかし、作成されたToolBarにはグリップが表示されません。 Exe内で Tool := TToolBar.Create(Self); with Tool do begin Parent := ControlBar1; Color := clRed; Align := alTop; end; とするとグリップが表示されることから、DLL からの場合は、 ControlBarが追加されたことを検知できなない為だと思います。 長文にならないようポイント部に絞ってるので伝わるか心配ですが、どのようにしたら 追加されたToolBarにグリップが表示できるかアドバイスをお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.