runtime create component

[akipek]

runtime anında bir butona basarak objeler oluşturuyorum. Ancak componentcount'a baktığımda component sayısı artmıyor. nedendir acaba?
çünkü bu componentleri tesbit ederek kayıt butonuna bastığımda bir dosyaya özelliklerini kayıt ettirmek istiyorum.

Butonu aşağıdaki şekilde oluşturuyorum

inherited;
if wCmpYeni = true Then wPanel := TabcDragPanel.Create(wParent);
wPanel.Caption := wOIsmi.Text;
wPanel.Parent := wParent;
wPanel.Left := StrToInt(wOLeft.text);
wPanel.Top := StrToInt(wOTop.text);
wPanel.Width := StrToInt(wOEni.text);
wPanel.Height := StrToInt(wOBoyu.text);
wPanel.Color := wOZeminRengi.SelectedColor;
wPanel.Font.Color := wOYaziRengi.SelectedColor;
wPanel.Transparent := wOTransparan.Checked;
wPanel.Enabled := wOKullanilabilir.Checked;
wPanel.Visible := wOGoster.Checked;
wPanel.MSLocked := not wOTasi.checked;
wPanel.PopupMenu := PopUpMenu1;
wPanel.Name := wOIsmi.Text;
PanelGiris.Visible := false;
wPanel.OndblClick := DoXYZ;

[Hakan Can]

if wCmpYeni = true Then wPanel := TabcDragPanel.Create(wParent);

yerine

if wCmpYeni = true Then wPanel := TabcDragPanel.Create(Self);

deneyin.

[akipek]

farketmedi