Registriert seit: 11. Nov 2005
Ort: Hamburg
130 Beiträge
|
AW: Checkboxen in Stringgrid
16. Mai 2016, 13:50
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;
Michael Cohrs
|
|
Zitat
|