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