topgrid und checkbox states

[Grumble]

hallo leute,

ich hab n prob mit topgrid version 2.20:

ich will auf click in eine zelle den checkboxwert aendern ich mache das mit folgender procedure:

Code:

procedure Tbkrehab_fanlagedaten.grd_defsClickCell(Sender: TObject;
  DataColDown, DataRowDown, DataColUp, DataRowUp: Integer; DownPos,
  UpPos: TtsClickPosition);
var j:integer;
begin
if (datarowup=datarowdown) and (datacolup=datacoldown) then
begin
case datarowup of
    7 .. 11:
    begin
        if grd_defs.Cellcheckboxstate[datacolup,datarowup]=cbChecked then
        begin

          grd_defs.Cell[datacolup,datarowup]:=cbUnchecked;
        end;
        for j:=1 to grd_defs.cols do
          grd_defs.Cell[j,datarowup]:=cbUnchecked;
        for j:=7 to 11 do
          grd_defs.Cell[Datacolup,j]:=cbUnchecked;
        grd_defs.Cell[datacolup,datarowup]:=cbChecked;

    end;
  end;
end;

end;

ich bekomm aber immer nur cbgrayed werte . meine checkboxes haben zwar das haekchen aber sind grayed. hat jemand ne ahnung woran das liegen koennte?

[XXcD]

Ok ich glaube ich hab das problem gelöst fals es noch irgendjemanden interressieren sollte:

Delphi-Quellcode:

procedure TForm37.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Checkbox1.Checked=true then
begin
end
else
begin
 Label3.Caption:='1';
end;
end;

procedure TForm37.CheckBox1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Label3.Caption='1' then
begin
Checkbox1.Checked:=true;
Label3.Caption:='0';
end;
end;

[Lannes]

Hallo,

Zitat:

Zitat von XXcD

Delphi-Quellcode:

 if Checkbox1.Checked=true then
begin
end
else
begin
 Label3.Caption:='1';
end;

das würde ich so programmieren:

Delphi-Quellcode:

if not (Checkbox1.Checked) then
  Label3.Caption:='1';

ps.: Du mißbrauchst nicht zufällig ein Label als globales Flag :roll: