Wenn du nur ein context menu brauchst:
Delphi-Quellcode:
procedure TForm1.DBGridMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pt: TPoint;
begin
if Button = mbRight then
begin
pt := DBGrid.ClientToScreen(Point(X, Y));
PopupMenu.Popup(pt.X, pt.Y);
end;
end;
Oder noch einfacher: Die Grid-Komponente hat eine Eigenschaft PopupMenu ...
Freundliche Grüße