この発言は
#00137　凛              さんのStringGrid右クリックで選択+メニュー出す
に対するコメントです



#137 凛 さん、こんにちは(^^)/    Athenaです。
Mes/19/46505のDiaさんの発言をヒントに、範囲選択でPopUpMenuを出して
みました(^^;



■StringGrid1のPopUpMenuプロパティにPopUpMenu1を指定しておきます。

■StringGrid1  OnMouseUpのコード　
//----------------------------------------------------------------------
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   GRect:TGridRect;
   MP : TPoint;
begin
   if (Button=mbRight) then   Exit;
   GRect:=StringGrid1.Selection;
   GetCursorPos(MP) ;  //MouseCursorのスクリーン座標
   if  (GRect.Right<>GRect.Left)or (GRect.Top<>GRect.Bottom) then
      PopUpMenu1.PopUp(MP.X,MP.Y);
end;

//-----------------------------------------------------------------------

                   _/_/   Athena ( VYH00522 )  _/_/

Original document by Athena          氏 ID:(VYH00522)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。