Mega Code Archive
Birden fazla editi sıfırlamak
<![CDATA[
// Bu Kodlarla Formunuzdaki bütün editleri sıfırlayabilirsiniz.
// Ayrıca Farklı componentler içinde kullanabilirsiniz.
// Örneğin yaptığım bir programda bütün buttonların rengini, fontunu değiştirmek
// için kullanmıştım.(Oncreate olayında)
// Diğer örnekleri inceledim doğru dürüst kod yazan yoktu. Yeni öğrenen arkadaşlara
// kolaylık olsun diye bu kodları gönderdim.
// Kullanımı (Mesela Bir Button'un Onclick Olayında)
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=0 to ComponentCount-1 do begin
if components[i] is Tedit then
begin
(components[i] as Tedit).Clear;
end;
end;
end;
// İlginç, farklı ve kullanışlı kodları olanlar bad_badboy_boy@hotmail.com 'a
// mail atabilir. Teşekkürler.
]]>