掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
popupmenuをStringGrid上で右クリックで表示させる方法 (ID:24027)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
OnContextPopupイベントを使用するといいでしょう。 イベントに関しての詳細はヘルプを参照して下さい。 下記が例です。 procedure TForm1.StringGrid1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); var sp: TPoint; C, R: Integer; begin // セルの番地を取得 StringGrid1.MouseToCell(MousePos.x, MousePos.y, C, R); // 固定セル以外の場所でポップアップイベントが発生したか判定 Handled:= ((C = -1) and (R = -1)) or ((C >= StringGrid1.FixedCols) and (R >= StringGrid1.FixedRows)); if Handled then begin // クライアント座標をスクリーン座標に変換 sp:= StringGrid1.ClientToScreen(MousePos); // 画面呼出 ※表示したいポップアップメニューに置き換えて下さい MessageDlgPos('Popup!', mtInformation, [mbOk], 0, sp.x, sp.y); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.