請教如何取得Grid cell座標,未click Grid之前! 發表人 -

你所指的Grid 是StringGrid 吧 做法如下：

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
        acol,arow:integer;
begin
        StringGrid1.MouseToCell(x,y,acol,arow);
         self.Caption := inttostr(acol) + ':'+inttostr(arow);    end;

ps:此問題與Object Pascal 語法與觀念無觀，不合適貼於『Object Pascal物件導向討論區(Delphi)』，已轉區 發表人 - ddy 於 2003/03/24 13:15:33

若你用的是DBGrid 則方法如下 使用MouseCoord    

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
        d:TGridCoord ;
begin            d:=DBGrid1.MouseCoord(x,y);
    self.Caption := inttostr(d.X )+':'+inttostr(d.y );
end;