掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TToolButtonを下げたままにしたい (ID：44581)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
type TForm2 = class(TForm) ToolBar1: TToolBar; ToolButton1: TToolButton; procedure ToolButton1Click(Sender: TObject); private { Private 宣言 } procedure WMApp(var Msg: TMessage); message WM_APP; public { Public 宣言 } end; procedure TForm1.WMApp(var Msg: TMessage); //ツールバーがtbsDropDownでもDownが効くように var l_ToolButton : TToolButton; begin l_ToolButton := TToolButton(Msg.LParam); if (l_ToolButton <> nil) and (l_ToolButton.Style = tbsDropDown) then begin l_ToolButton.Down := l_ToolButton.Tag <> 0; end; end; procedure TForm1.ToolButton1Click(Sender: TObject); begin if (ToolButton1.Tag <> 0) then begin ToolButton1.Tag := 0; end else begin ToolButton1.Tag := 1; end; //SendMessageではうまくいかない PostMessage(Handle, WM_APP, 0, LPARAM(ToolButton1)); end; ToolButton1のTagを利用してDownのOn/Offを切り替えています。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.