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....
Bazıları haber sunarken güzel görünmeye çalışıyorlar bazıları ise güzel oldukları için haber sunuyorlar. Bunun yanında hem haber sunan hem de güzel olanlarda yok değil. Nasıl bir haber sunduğu konusunda (tonlama, vurgu, mimik) fazla bilgim olmasada çok güzel bi hanım kızımız olduğu gözlerden kaçmıyor Melissa Theuriau'in. Meslek hayatında başarılı olmasını dilemekten başka bir şey söyleyemiyorum :) Türkiye tarafında ise ön plana çıkan Banu Güven (Ntv) ve Burcu Esmersoy (CnnTurk) var. Bana göre Banu Güven işini yaparken güzel görünüyor Burcu ise güzel göründüğü için iş yapıyor. Her ikisininde konuşmakla ilgili bir takım problemleri var ama her zaman için Banu Güven'i tek geçerim bu alemde :)
Yorumlar