Checkboxen in Stringgrid

[michael.cohrs]

Sorry, Copy-Paste Fehler , hier der richtige Source:

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var iCol, iRow: Integer;
begin
  with TStringGrid(Sender) do
    if (Button = mbLeft) and Editing then 
    begin
      MouseToCell(x, y, iCol, iRow);
      if (iCol > 0) and (iRow > 0) then 
      begin
        if Cells[iCol, iRow] = '1' then // Checked
          Cells[iCol, iRow]:= '0'
         else if Cells[iCol, iRow] = '0' then // not Checked
          Cells[iCol, iRow]:= '1';
      end;
    end;
end;