請教各位先進：想針對DBGRID的FILED給出動態提示資訊，但不知如何根據X,Y的資訊判斷出當前滑鼠是哪個欄位： procedure Tfrmtv_Consumer.gridCreditMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin end; 謝謝 發表人 - HelpFriend 於 2005/07/07 08:34:25

Hi HelpFriend ,

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  id : TGridCoord;
begin
  id := dbgrid1.Mousecoord(x,y);  //取得目前mouse所在之col及row
  if (id.x > 0) and (id.y > 0) then begin
    Edit1.Text := '('   IntToStr(id.x)   ','   IntToStr(id.Y)   ')';
  end;
end;

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

------
Fishman

只是補充一點： 取得欄位可用 Fields[ID.X-1] or DBGrid1.Columns[ID.X-1] ～～～～～～～～～～～ 難得聰明，常常糊塗。 ～～～～～～～～～～～