請教各位大大 如何取得 DBGrid 中 某一被 Focused 的 Column 的位置(X,Y) 以產生 點選該格 會由該格位置跳出一個 Form??

Hi xk    不知是否足夠： DBGrid1.SelectedIndex

procedure TForm1.Button7Click(Sender: TObject);
begin
  ShowMessage(IntToStr((DBGrid1.SelectedIndex)));
end

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Fishman大大 抱歉!! 問題重述!! 小弟所欲達到之效果為 A Form.DBGrid.OnCellClick() 時 B Form.ShowModal B Form 在 OnShow 時 其 Left:=X; Top:=Y; 而 X,Y 為 A Form 中 該 DBGrid 的 資料格 在整個螢幕中的 X,Y 軸座標 請教 X,Y 怎麼取ㄋ?? 有API嗎??或更EZ的方法??

Hi xk,    請參考並加以調整： http://delphi.ktop.com.tw/topic.php?topic_id=46696

  type TTmpGrid=class(TDBGrid);    procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  id : TGridCoord;
begin
  if not TDBGrid(Sender).Focused then
    TDBGrid(Sender).SetFocus;
  id := dbgrid1.Mousecoord(x,y);  //取得目前mouse所在之col及row
  if (id.x > 0) and (id.y > 0) then begin
    TTmpGrid(DBGrid1).Row:=id.y;  //設定Grid之row,col使其反白
    TTmpGrid(DBGrid1).Col:=id.x;
  end;
end;    procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  ShowMessage('('   IntTostr(TTmpGrid(DBGrid1).Row)   ','   IntToStr(TTmpGrid(DBGrid1).Col)  ')');
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

xk 你好:    剛好最近有遇到相關問題, 與 Fishman 兄的方法接近, 姑且參考看看.    

type TDumDBGrid=class(TDBGrid);
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var G:TDumDBGrid;
    P:TPoint;
begin
  G := TDumDBGrid(DBGrid1);
  P := G.CellRect(G.Col, G.Row).TopLeft;
  P := G.ClientToScreen(P); // 轉成螢幕座標
  with TForm2.Create(nil) do begin
    try
      Left := P.X;
      Top := P.Y;
      ShowModal;
    finally
      Free;
    end;
  end;
end;