Я использую этот код, чтобы иметь возможность щелкать по определенной ячейке в моей сетке и выводить строку в этой ячейке. Он отлично работает в моем приложении VCL.
procedure TForm1.StringGridBindSourceDB1CellDblClick(const Column: TColumn;
const Row: Integer);
var
Coordinates:TGridCoord;
x:integer;
Pt:TPoint;
html_body:string;
ClickCol:Integer;
ClickRow:Integer;
begin
Pt := grid.ScreenToClient(mouse.CursorPos);
Coordinates := grid.MouseCoord(Pt.X, Pt.Y);
ClickCol := Coordinates.X;
ClickRow := Coordinates.Y;
html_body := grid.Cells[ClickCol, ClickRow];
end;
Однако, когда я пытаюсь достичь того же результата в приложении firemonkey, я не могу использовать "TGridCood
", "ScreenToClient
," или "mouse.CursorPos
"
"grid
" - это TStringGrid