ロールオーバーメニュー用のDelphi XE2コンポーネント

Question

私のアプリケーション（Delphi Xe2）には、「マルチチェック」ボタンがあります（「エクスポート」ボタンには「PDFに書き出し」と「XLSに書き出し」の選択肢があります）。 ボタン（またはパネルや他のオブジェクト）の上にマウスを移動すると表示されるポップアップメニューのようなメニューを取得する必要があります。このメニューはボタンのすぐ下に表示する必要があり、「VCL Stylable」コンポーネントである必要があります。 TPopUpMenuを試しましたが、非表示にするのは便利ではありません。 私はまた、OnEnterではなくOnClickイベントでメニューを表示することを考慮しています。

Answer 1

TButtonのスタイルをbsSplitButtonに設定し、TPopupActionBarをボタンのDropDownMenuプロパティに設定して使用できます。右矢印をクリックして下矢印のあるをクリックすると、メニューがドロップダウンします。 Vistaのために利用可能な以降のみ。..

以下を採用することができるように、以前のOSの何かのために：

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Pt: TPoint; 
begin 
    Pt := ClientToScreen(Point((Sender as TButton).Left, (Sender as TButton).Top)); 
    PopupActionBar1.Popup(Pt.X, Pt.Y + (Sender as TButton).Height); 
end;