StringGrid und Popup

[DeddyH]

Gerade mal unter Ubuntu mit Lazarus versucht:

Delphi-Quellcode:

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var aCol,aRow: integer;
    p: TPoint;
begin
  p := StringGrid1.ScreenToClient(Mouse.CursorPos);
  StringGrid1.MouseToCell(p.X,p.Y,aCol,aRow);
  StringGrid1.Col := aCol;
  StringGrid1.Row := aRow;
end;