Das habe ich doch alles schon gesehen.
Die Checkbox ist anders ! Aber egal. Gezeichnet war sie ja vorher sowieso richtig. Habe es jetzt so gemacht :
Delphi-Quellcode:
procedure Tfrm.sgClick(Sender: TObject);
begin
inherited;
if sg.Col in BoolCols then begin
if StrVorhanden (sg.Cells [sg.Col,sg.Row]) then begin
if StrToInt (sg.Cells [sg.Col,sg.Row]) = 1 then
sgr.Cells [sg.Col,sgArtNr.Row] := '0'
else
sg.Cells [sg.Col,sg.Row] := '1';
end;
end;
end;
Ist auch besser für nicht so zielsichere. Die brauchen dann nur die richtige Zelle zu treffen und nicht die CheckBox selber.
Tja, da sieht man mal wieder, wie man mit einem simplen Trick Delphi veranlaßt, genau das gewünschte zu machen. Und der Trick besteht darin, daß hinter der CheckBox in Wirklichkeit 1 oder 0 steht. 8)