Einzelnen Beitrag anzeigen

HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
969 Beiträge
 
Delphi 6 Professional
 
#2

AW: Checkboxen in Stringgrid

  Alt 16. Mai 2016, 10:36
Guten morgen zusammen,

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] = '1then // Checked
          Cells[iCol, iRow]:= '0'
         else if Cells[iCol, iRow] = 'falsethen // not Checked
          Cells[iCol, iRow]:= 'true';
      end;
    end;
end;
Wo setzt Du denn hier wieder von 'not Cheched' auf 'Checked' zurück, wenn der Wert '0' ist?
Und umgekehrt wenn der Wert 'true' ist ?

Also entweder nur mit '0' und '1' oder 'fasle' und 'true' arbeiten und dann auch bei jedem Click 'umschalten'
  Mit Zitat antworten Zitat