procedure TForm1.StringGrid1DblClick(Sender: TObject);
var x,y,xa,xb : string;
begin
StringGrid1.MouseToCell(a,b,a,b);
x := Inttostr(StringGrid1.Col);
y := Inttostr(StringGrid1.Row);
xa := Inttostr( a);
xb := Inttostr( b);
showmessage( ' x : '+ x + ' y : '+y+' a : '+ xa + ' b : '+xb);
end;
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
a := x; b:=y;
end;
var
Form1: TForm1;
a,b : integer;
implementation
{$R *.dfm}
procedure TForm1.StringGrid1DblClick(Sender: TObject);
var x,y,xa,xb : string;
begin
StringGrid1.MouseToCell(a,b,a,b);
x := Inttostr(StringGrid1.Col);
y := Inttostr(StringGrid1.Row);
xa := Inttostr( a);
xb := Inttostr( b);
showmessage( ' x : '+ x + ' y : '+y+' a : '+ xa + ' b : '+xb);
end;
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
a := x; b:=y;
end;
이런식으로 하면 가져 오실수 있습니다.