ToolButtonのDropDownMenuについて。

解決

K'chan 2004-07-28 17:20:22 No: 10129

はじめまして、こんにちは。

Delphi7 + windowsXP Homeで開発しています。

ToolBarをFormに置いてToolButtonを作成してDropdownMenuにPopupMenuを指定しました。ここで、ボタンを押した時にメニューが開き、そのメニューが閉じるまではToolButtonがDown=Trueのような描画になって欲しいのですが、されません。ちょうどIEの「メール」のボタンの動作です。

色々調べているうちに、XPManifestを置いてXPスタイルの場合のみ、上記のような事が起こり、クラシックスタイルでは、正常に表示されました。

どうかよろしくお願い致します。

TtPIPICH 2004-07-28 23:27:39 No: 10130

onKeyDownでボタンの左下座標にメニューをPopupさせればいいと思います
クラッシクなので分かりませんが

TtPIPICH 2004-07-28 23:29:32 No: 10131

すみません
×onKeyDown
○onMouseDown
でした

K'chan 2004-07-29 00:29:32 No: 10132

こんにちは。

ボタンのイベントで

ToolButton1.Down := True;
Popupmenu1.Popup(x, y);
ToolButton1.Down := False;

のように、処理して解決しました。
XPManifestを置いても大丈夫でした。＾_＾；

お答えありがとうございました。