runtimede create ettigim componentler

[abdulkadir]

S.A
runtimede create ettigim componentler formda olmasına ragmen yok sanki
daha önceden de böyle bir sorun yasamıstım ama nasıl hallodu hatırlayamadım
olusturdugum edit componentine yazılanları okumaya calısıyorum ama

Kod: Tümünü seç

var
i:integer;
begin
Memo1.Clear;
i:=0;
 while i < self.ComponentCount do begin
  Memo1.Lines.Add(self.Components[i].Name+'--'+self.Components[i].ClassName+'---'+inttostr(self.Components[i].tag));
 inc(i);
 end;
 Memo1.Lines.Add( inttostr(self.ComponentCount));
//create etmeden önce ile sonra sayı aynı ama forma eklendigini görmesem inanırdım :D
end;

benim olusturduklarım haricinde tümü var
parenti kontrol ettim dogru
bir pagecontrolun içine ekliyorum edit combobox gibi pagecontrolun içindeki digerlerine ulasıyorum ama yenilerine maalesef
neden olabilir acaba simdiden tesekkürler....
D2007 kullanıyorum

[sabanakman]

Gösterilen yer ile sahiplik kavramları ayrıdır. Eğer siz bileşeni Create ederken o formu sahip olarak belirtmezseniz bahsettiğiniz durum oluşacaktır. Bir de şunu deneyebilirsiniz.

Kod: Tümünü seç

ShowMessage(IntToStr(Self.ComponentCount));
TEdit.Create(Self);
ShowMessage(IntToStr(Self.ComponentCount));

2. Mesajda bu sayının 1 arttığını görebilirsiniz. Çünkü Create edilen bileşene sahip olarak o form belirtildi.

[abdulkadir]

ok anlasıldı. ve düzeltildi
tesekkür ederim.