Demonstrarei a seguir uma rotina simples que "limpa" Edits em um formulário, mas que
pode ser facilmente adaptada para manipular N propriedades em muitos componentes
diferentes. Vamos lá,
Inicie uma Nova Aplicação :
FILE >>> NEW >>> APPLICATION
Em seu formulário adicione vários Edits e um Button, como na figura abaixo:
Tecle F12 para visualizar a Unit deste formulário, na cláusula Type adicione a
procedure Limpa , observe abaixo:
Implemente o procedimento (Shift+Ctrl+C) com o seguinte código:
Observe o código acima, um contador "varre" o formulário, localiza os componentes do tipo
TEdit e "Limpa" ( .clear; ) o texto de cada Edit.
Procedimento criado o próximo passo e adicionar o evento Onclick para o Button, para isso
dê um duplo clique sobre o Button e chame o procedimento Limpa, como abaixo :
Adapte este código, use sua imaginação e manipule as propriedades de vários componentes.
Um abraço a todos.
Leonardo C. Quartieri
Desenvolvedor Delphi/.Net
leoquartieri@hotmail.com
