掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TOOLバーのFloating解除 (ID:24420)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
試していなくて申し訳ないんですが こんな感じで動作しないでしょうか？ interface TToolDockSite = class(TToolDockForm) private procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; end; implementation procedure TToolDockSite.WMSysCommand(var Msg: TWMSysCommand); begin case Msg.CmdType of SC_CLOSE: begin //この辺りに処理を書く //inherited; //閉じたいときはこちら Msg.Result := 0; //閉じたくないときはこちら end; else inherited; end; end; procedure TForm1.FormCreate(Sender: TObject); begin ToolBar1.FloatingDockSiteClass := TToolDockSite; end; このあたりを参考にしています。 [builder:20001] フローティングしたツールバーのクローズボタン
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.