喫茶XRAYトップページ

[スレッド全体
]

[13218] TDBGrud のスクロールバー返信 削除
2020/2/10 (月) 08:15:12 Mr.XRAY
TDBGrid のスクロール関係のページに以下のサンプルを追加しました.
TStrinGrid のページで提供している TplStringGrid も修正しています.

[ 05_スクロール制御用に TScrollBar を実装した TDBGrid ]
http://mrxray.on.coocan.jp/Delphi/plSamples/071_TDBGrid_ScrollBar.htm#05

[ 06_固定列の設定機能付き TDBGrid コンポーネント ]

[ 07_TDBGrid の固定列を使用したレコード番号の表示 ]


[13219] マウスカーソル位置のTDBGridの行と列返信 削除
2020/2/13 (木) 08:16:04 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;



[▼次のスレッド]
INCM/CMT
Cyclamen v3.82