掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ポップアップメニューをカーソル位置に表示するには？ (ID：5911)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>ヘルプには(popupメソッドの項目)カーソル位置に表示されますと >書いてあるのですが・・・。 あれっ，本当ですね． D5のヘルプでは TpopupMenuのPopupメソッドで，例がのっていました． 参考にしてはいかがでしょうか． 以下の例では，ポップアップメニューを使用します。マウスボタンをクリッ クすると，クリックした位置にポップアップメニューが表示されます。 procedure TForm1.FormCreate(Sender: TObject); begin PopupMenu1.AutoPopup := False; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin with ClientToScreen(Point(X,Y)) do PopupMenu1.Popup(X, Y); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.