Zellen nur innerhalb einer Zeile markieren (Stringgrid)

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, White Rabbit.

OnSelectCell() scheint mir weniger geeignet. Schau dir mal diesen Code an:

Delphi-Quellcode:

procedure TDemoForm.StringGridClick(Sender: TObject);
var
  p: TPoint;
  gr: TGridRect;
  iCol, iRow: integer;
begin
  with StringGrid do
  begin
    p := ScreenToClient(Mouse.CursorPos);
    MouseToCell(p.X, p.Y, iCol, iRow);
    if (iCol < FixedCols) or (iRow < FixedRows) then
      Exit;
    if iRow <> Row then
    begin
      gr.Left := iCol;
      gr.Right := iCol;
      gr.Top := iRow;
      gr.Bottom := iRow;
      Selection := gr;
    end;
  end;
end;

Grüße vom marabu