| Formdaki bütün bileşenlere çalışma anında bileşen tipine göre ulaşmak
Kod: Kodu kopyalamak için üzerine çift tıklayın! var
i: integer;
begin
for i := 0 to self.ComponentCount - 1 do begin
if Components[i]Is TEdit then
TEdit(Components[i]).text:='Deneme';
end;
end;
__________________ SusKun ve Sessiz Mürekkep...
Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|