Parent degerini degiskenden atabilirmiyim...

[Burhan_ast]

Mrb

problem su formda bir buton olusturuyorum calisma aninda bu butona parent atamam lazim,

Kod: Tümünü seç

Procedure Buton(Prn : String);
Begin
  Button15.parent:=Prn;
end;

yaptigim zaman hata aliyorum, bu parent bazen bir panel, bazen bir pagecontrol v.s. olabiliyor, bu nedenle gelen degiskene gore yapmam lazim,

tsk


Burhan cakmak

[vkamadan]

merhaba ,
TObject türünde bir değişken tanımlayın bunu parente atama yapabilirsiniz, Şu şekilde yani,

Kod: Tümünü seç

Procedure Buton(Prn : TObject);
Begin
  Button15.parent:=Prn;
end; 

çağırıken örneğin buton panel1 üzerinde olsun istersen,

Kod: Tümünü seç

 Buton(Panel1);

gibi iyi çalışmalar.

[Burhan_ast]

Merhaba,

malesef gonderilen parametrede text bir bilgi bu text bilgiyi bir databaseden okuyorum, diger turlu bir araci kullanmaya gerek kalmadan

Kod: Tümünü seç

butondeneme.parent:=Panel1;

yazabilirdim

Burhan cakmak

[ibr_ozdemir]

aslında bileşenlerin (TControl ve üstü olanların) parent özellikleri "TWinControl" tiplidir. şu şekilde bu sorunu aşabilirsin

procedure Sahiplendir(Bilesen:TControl; Sahip:string);
var
b:twincontrol;
begin
b:=nil;
b:=twincontrol(FindComponent(Sahip));
if (b<>nil) and (b is TWinControl) then
Bilesen.parent:=b;
end;

[Burhan_ast]

Tsk,

Calisti,

Burhan Cakmak