TStringGrid, Doppelklick auf fixed Row ignorieren

[DeddyH]

Delphi-Quellcode:

procedure TfrmTest.StringGrid1DblClick(Sender: TObject);
var p: TPoint;
    aCol, aRow: integer;
begin
  p := StringGrid1.ScreenToClient(Mouse.CursorPos);
  StringGrid1.MouseToCell(p.X,p.Y,aCol,aRow);
  if aRow < StringGrid1.FixedRows then
    begin
      if aRow < 0 then
        ShowMessage('Keine Zelle an dieser Stelle')
      else
        ShowMessage('Fixe Zeile geklickt');
    end;
end;

Klappt bei mir so