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....
Polat Alemdar, Süleyman Çakır, Baron, Testere, Kılıç, Memati, Laz Ziya, Deve Tuncay kimdir nedir ?
Yorumlar ilginç....
Sonsan!ye.net Haber Portalı "Susurluk'a göre Kurtlar Vadisi'nde kim kimdir?"
Yorumlar