StringGrid und Popupmenü

[omata]

Moin,

ich würde dafür OnMouseDown benutzen...

Delphi-Quellcode:

procedure TForm.StringGridMouseDown(Sender: TObject; 
                                    Button: TMouseButton; 
                                    Shift: TShiftState; 
                                    X, Y: Integer);
var ACol, ARow:integer;
begin
  if Button = mbRight then begin
    with Sender as TStringGrid do
      MouseToCell(X, Y, ACol, ARow);
    if (ACol > 0) and (ARow > 0) then
      PopupMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
  end;
end;

MfG
Thorsten