| |
 |
Atualização |
 |
|
|
|
|
|
|
| |
|
Usuário |
|
|
|
|
|
|
|
| |
|
Menu |
|
|
|
|
|
|
|
| |
|
Campeonato |
|
|
|
|
|
|
|
| |
|
Climatempo |
|
|
|
|
|
|
|
| | | | |
| LIMPANDO OBJETOS DINAMICAMENTE |
Muitas vezes nos deparamos com situações onde devemos remover o conteúdo de determinados objetos, como por exemplo Edits ou mesmo Labels e dependendo da complexidade da tela setar manualmente cada campo pode ser trabalhoso.Sendo assim mostraremos hoje como montar um esquema automático e genérico para esse caso:
procedure TForm1.Button1Click(Sender: TObject);
procedure LimparEdits(AControl: TComponent);
var
vLoop: Integer;
begin
{ ComponentCount retorna a qtde de componentes que o parent é o AControl, ou seja, somente os componentes que estão ligados a ele }
for vLoop := 0 to AControl.ComponentCount-1 do
begin
{ Se for um componente do tipo TEdit, }
{ então iremos limpar o conteúdo, caso }
{ contrário, iremos rechamar a procedure }
{ pois o AControl pode ser um painel e temos }
{ que limpar inclusive os edits do painel }
if AControl.Components[vLoop].ClassType = TEdit then
TEdit(AControl.Components[vLoop]).Clear
else
LimparEdits(AControl.Components[vLoop]);
end;
end;
begin
{ O processo irá iniciar limpando os edits que estão diretamente docados no form }
LimparEdits(Self);
end; |
[ Voltar ]
 | | | | |
|
Sistemas
Suporte
Administração
PHP
Links