Problem mit onSelectCell-Eigenschaft beim stringgrid

[marabu]

Hi Filiz,

es liegt wahrscheinlich daran, dass du das falsche Ereignis verwendest:

Delphi-Quellcode:

procedure TDemoForm.StringGridMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  iCol, iRow: Integer;
begin
  with Sender as TStringGrid do
  begin
    MouseToCell(X, Y, iCol, iRow);
    if iRow < FixedRows then
      Exit else
    if (iCol < FixedCols) or (iCol = 0) then
      Options := Options + [goRowSelect] else
    begin
      Options := Options - [goRowSelect];
      if iCol = Col then
        Selection := TGridRect(Rect(iCol, iRow, iCol, iRow));
      Col := iCol;
    end;
    Row := iRow;
  end;
end;

Grüße vom marabu