Hallo,
danke für die schnelle Antwort, aber alles was ich Versuche geht nicht, habs mit newTab und Nil versucht.
Ich versuche die ganze Zeit 10 CheckBoxen auf ein TabSheet zu erzeugen. Das Neue TabSheet hab ich so erzeugt:
Delphi-Quellcode:
//
k := PageControl1.PageCount + 1;
newtab := TTabSheet.Create(PageControl1);
newtab.PageControl := PageControl1;
newtab.name := 'tab'+inttostr(k);
newtab.Caption := 'Tab '+inttostr(k);
//
Danach 2x Label mit Text
//
newlabel := TLabel.Create(newlabel);
newlabel.name := 'tablabel1'+inttostr(k);
newlabel.caption := 'Bitte Aktivieren Sie die Felder die im Listfenster angezeigt werden sollen.';
newlabel.Left := 48;
newlabel.Top := 384;
newlabel.visible := true;
newlabel.parent := newtab;
//
Danach diese CheckBoxen
//
h := 64; i:=0;
While i <=9 Do Begin
newCheckBox := TCheckBox.Create(newCheckBox);
newCheckBox.parent := newtab;
newCheckBox.name := 'NewCheckBox'+inttostr(k)+inttostr(i);
newCheckBox.caption := 'Neue CheckBox'+inttostr(k)+inttostr(i);
newCheckBox.width := 120;
newCheckBox.left := 80;
newCheckBox.top := h;
newCheckBox.visible := true;
h := h +24; i:=i+1;
end;
//
jetzt die Abfrage dazu
i:=0;
While i<=9 Do
begin
Test := 'NewCheckBox7' + IntToStr(i);
If TCheckBox(FindComponent(Test)).Checked = true then
ShowMessage('Ergebnis : True')
ELSE
ShowMessage('Ergebnis : False') ;
i:=i+1;
end;
Müsste doch eigentlich Funktionieren.
Geht ja auch, aber nur die erste CheckBox, bei den nächsten gibts einen abbruch.