Bir bileşenden kaç tane oluşturacağımız önceden belli değilse böyle bir kullanıma ihtiyacımız olabilir. Gerçi dinamik array olarakta tanımlayıp bu işi daha güvenli bir yönden çözebiliriz ama maksat çeşitliliği artırmak olsun.
Her hangi bir tanımlama yapmadan çalışma zamanında bir TEdit nesnesi oluşturup bunu form üzerinde göstereceğiz.
procedure TForm1.Button1Click(Sender: TObject);
begin
with TEdit.Create(self) do
begin
left := 168;
top := 59;
height := 21;
Width := 121;
Parent :=Self;
name := 'EditYeni';
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
//text özelliğini değiştir
(FindComponent('EditYeni') as TEdit).Text := 'Ehu ehu ehu...';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
//editi yok et
(FindComponent('EditYeni') as TEdit).Free;
end;
güle güle kullanın....
"Leyse li'l-insâni illâ mâ seâ" derken Hudâ;
Anlamam hiç meskenetten sen ne beklersin daha?
Mehmet Akif Ersoy / Durmayalim
Leyse li'l-insâni illâ mâ seâ : Necm Süresi 39. Ayet. [İnsan için ancak çalıştığı vardır.]
Meskenet: 1 . Miskinlik, beceriksizlik. 2 . Yoksulluk, fakirlik. (Türk Dil Kurumu)
Olay zaten yeterince acik. Yan gelip yatma kardesim. Calis.
Bu misralar yazildigi donemde bu anlami tasiyordu fakat zaman ilerledikce baska bir gercegi de gozler onune seriyor.Gerci bu gercek cok kapsamli bir kac satirla anlatilabilecek bir sey degil kaldiki benim bilgim de buna yeterli degil zaten. Ben giris cumlelerini verebilirim gerisini arastirmak yaziyi okuyanlara kalmis. (Matrix gibi bisey oldu bu yaw. Neo'nun kahinle bulusup yanindan ayrildiktan sonra Morpheus ile konusma sahnesi.)
Yani kisaca sunu demek istiyorum. Ben bu misrayi ilk okudugumda hic birsey anlamadim. Bu misralari anlayabilmek icin kuran mealine ve turkce sozluklere bakmak zorunda k...
Yorumlar