Probiere es mal so, bei mir klappt es:
Delphi-Quellcode:
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
ACol, ARow : Integer;
begin
If Button = mbRight then
begin
StringGrid1.MouseToCell(x, y, ACol, ARow);
StringGrid1.Row:= ARow;
end;
end;
Gruß
Jürgen