ToolButtonのDropDownMenuについて。

解決

K'chan  2004-07-28 17:20:22  No: 10129  IP: [192.*.*.*]

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

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

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

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

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

編集    削除
TtPIPICH  2004-07-28 23:27:39  No: 10130  IP: [192.*.*.*]

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

編集    削除
TtPIPICH  2004-07-28 23:29:32  No: 10131  IP: [192.*.*.*]

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

編集    削除
K'chan  2004-07-29 00:29:32  No: 10132  IP: [192.*.*.*]

こんにちは。

ボタンのイベントで

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

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

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

編集    削除