Thema: Delphi Checkbox in Stringgrid

Einzelnen Beitrag anzeigen

sephraina

Registriert seit: 17. Feb 2015
36 Beiträge
 
Delphi XE7 Professional
 
#1

Checkbox in Stringgrid

  Alt 9. Jun 2015, 11:27
Hallo Zusammen,

ich weiss zu diesem Thema gibts schon einiges, aber ich hab da was aus dem Internet ausporbiert, das bei mir nicht so funktioniert wie es sollte. Vielleicht sieht jemand gleich den Fehler... (hoffentlich..)
Ich will eine Checkbox in jede Zeile in einer bestimmten Spalte einfügen in einem Stringgrid.
Diesen Code habe ich +/- aus: http://borland.newsgroups.archived.a...803046227.html übernommen.

Delphi-Quellcode:
procedure TForm2.InseretCheckBoxes(var Stringgrid1: TStringGrid);

var
    ChkBox : TCheckBox;
    i : Integer;
begin
  with Stringgrid1 do
    begin
      for i := 1 to 3 do //einfach ein paar Zeilen
        begin
          Cells[5, i] := EmptyStr;
          ChkBox := TCheckBox.Create(Stringgrid1);
          with ChkBox do
            begin
              //Name := Format('ChkBox_%d_%d', [3, i]);
              //Caption := EmptyStr;
              Checked := False;
              Visible := True;
              Parent := Stringgrid1;
              Width := Height;
          end;

          Objects[5,i] := ChkBox;
        end;
    end;
end;
ok, es erscheint noch nichts auf meinem Stringgrid.
Dann fülle ich das Grid mit Daten und rufe am Ende noch diese Prozedur auf (Form2.InsertCheckboxes).
Endlich sehe ich eine Checkbox, leider aber nur im oberen linken Feld meines Stringgrids und nicht in der Spalte wo ich die chboxes wollte...

Hat jemand eine Idee woran das liegt?

Gruss und Danke

sephraina
  Mit Zitat antworten Zitat