Olá Jefferson
Olhe esta função que uso há alguns anos:
procedure LimparCampos(Fm : TForm);
var
i : Integer;
begin
try
for i := 0 to Fm.ComponentCount - 1 do
Begin
if Fm.Components[i] is TCustomEdit then
(Fm.Components[i] as TCustomEdit).Clear;
if Fm.Components[i] is TLabeledEdit
procedure LimpaEdit(comp: TComponent);
var
i: TComponent;
c: TComponent;
begin
for i:=0 to comp.ComponentCount - 1 do
begin
c:=comp.Components[i];
if (c is TEdit) then
(c as TEdit).Text:=''
else begin
LimpaEdit(c);
end;
end;
end;
http://aflsistemas.com.br/blog/2009/04/09/dica-limpar-edit-em-execucao/
ou
http://ricardo-correia.blogspot.com/2009/04/limpando-edits-dinamicamente-no-delphi.html
Em 17/12/2009 08:49, Jefferson Eduardo escreveu:
Pessoal, bom dia!
Tenho um programa no delphi e quando clico no botão salvar,
3 matches
Mail list logo