Mit rechter Maustaste Zellen im Stringgrid aktivieren?

[Alex_ITA01]

Hallo erstmal,
ich glaube folgender Code dürfte dir helfen:

Delphi-Quellcode:

procedure TForm1.GridMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  ACol,
  ARow : Integer;
begin
  if Button = mbRight then
  begin
    Grid.MouseToCell(X,Y,ACol,ARow);
    Grid.Col := ACol;
    Grid.Row := ARow;
  end;
end;

Jetzt musst du nur noch das PopUpMenü an der Stelle X, Y aufrufen. Da gibts glaube ich OnPopUpMenu oder so ähnlich womit man die Position setzen kann...

MFG Alex