Mega Code Archive
[] Formlardaki nesnelerin kontrolü
<![CDATA[
// 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:= '';
if (Components[I] is TMaskEdit) then TMaskEdit(Components[I]).Visible:= False;
if (Components[I] is TMemo) then TMemo(Components[I]).Visible:= False;
if (Components[I] is TEdit) then TEdit(Components[I]).Visible:= False;
end;
end;
//
// Bunu TLabel, TPanel .... v.s. çoğaltmak mümkün
]]>