StringGrid und Popup

[DeddyH]

Ich kann es gerade nicht ausprobieren, aber versuch es mal so:

Delphi-Quellcode:

procedure TForm7.StringGridPopupPopup(Sender: TObject);
var iCol,iRow: integer;
    Position: TPoint;
begin
  Position := StringGrid1.ScreenToClient(Mouse.CursorPos);
  StringGrid1.MouseToCell(Position.X,Position.Y,iCol,iRow);
  if iCol = 0 then
    abort
  else
    begin
     StringGrid1.Col:= iCol;
     StringGrid1.Row:= iRow;
    end;
end;