StringGrid und Popup

[SaFu]

vielleicht doch noch einen kleinen tipp

das verhindern des Popups bei Spalte null

Delphi-Quellcode:

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

geht net so ganz