16,748
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
lpPoint: TPoint;
Coord: TGridCoord;
begin
lpPoint:= StringGrid1.ScreenToClient(Mouse.CursorPos);
Coord:= StringGrid1.MouseCoord(lpPoint.X, lpPoint.Y);
Showmessage(IntToStr(Coord.X) + ':' + IntToStr(Coord.Y));
end;
procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
lpPoint: TPoint;
nRow, nCol: Integer;
begin
if getCursorPos(lpPoint) then
begin
StringGrid1.MouseToCell(lpPoint.x-self.Left-StringGrid1.Left,lpPoint.y-self.Top-StringGrid1.Top, nCol,nRow);
showMessage(intToStr(nRow)+','+intToStr(nCol));
end ;
end;