StringGrid und Popupmenü

[marabu]

Hallo Thorsten,

so könnte das aussehen:

Delphi-Quellcode:

procedure TDemoForm.PopupMenuPopup(Sender: TObject);
var
  p: TPoint;
  iCol, iRow: integer;
begin
  with StringGrid do begin
    p := ScreenToClient(PopupMenu.PopupPoint);
    MouseToCell(p.X, p.Y, iCol, iRow);
    if (iCol < FixedCols) or (iRow < FixedRows) then begin
      ShowMessage('what the heck you think you are doing here?');
      Abort;
    end;
  end;
end;

marabu