喫茶XRAY [Mr.XRAY掲示板]

[ DBGridのダブルクリックイベントでタイトル行は除外したい ]
https://www.petitmonte.com/bbs/answers?question_id=29694

こんなのかな ?

//=============================================================================
//  TDBGrid 上でマウス左ボタンをダブルクリックした時の処理
//  ダブルクリックしたマウスカーソル位置のセルの行と列の位置を取得して表示
//=============================================================================
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var
  LMousePos  : TPoint;
  LPosInGrid : TPoint;
  LGridPos   : TGridCoord;
  LText      : string;
begin
  //マウスカーソル位置を取得してコントロール内の座標に変換
  GetCursorPos(LMousePos);
  LPosInGrid := DBGrid1.ScreenToClient(LMousePos);

  //マウスカーソルの座標値から行と列の値を取得
  LGridPos := DBGrid1.MouseCoord(LPosInGrid.X, LPosInGrid.Y);

  // 結果を表示
  LText := IntToStr(LGridPos.Y) + ' 行' + sLineBreak
         + IntToStr(LGridPos.X) + ' 列';
  MessageBox(Handle, PChar(LText), '行と列の位置', MB_ICONINFORMATION);
end;