Mega Code Archive

 

Categories / Delphi / OOP

 

Formdaki tüm editboxların içini temizlemeye ek

// Korkud ERÇETİN // kaheri579@hotmail.com procedure TForm1.FormShow(Sender: TObject); begin for I:= 0 to ComponentCount - 1 do begin if (Components[I] is TMaskEdit) then TMaskEdit(Components[I]).Text:= ''; if (Components[I] is TMemo) then TMemo(Components[I]).Text:= ''; if (Components[I] is TEdit) then TEdit(Components[I]).Text:= ''; end; end; // // Bunu TLabel, TPanel .... v.s. çoğaltmak mümkün