Alterando as propriedades de vários componentes simultaneamente
Crie uma aplicação e adicione 4 botões, algumas caixas de texto, alguns memos, alguns listboxes e alguns labels. No Button1, altere a propriedade nome para btnMemo e a propriedade caption para Memo. Insira o código a seguir:
procedure TForm1.btnMemoClick(Sender: TObject);
var
contador: integer;
begin
for contador := 0 to (Form1.ControlCount - 1) do
if Form1.Controls[contador].ClassName = 'TMemo' then
(Form1.Controls[contador] as TMemo).Lines.Clear;
end;
No Button2, altere a propriedade nome para btnEdit e a propriedade caption para Caixa de Texto. Insira o código a seguir:
procedure TForm1.btnEditClick(Sender: TObject);
var
contador: integer;
begin
for contador := 0 to (Form1.ControlCount - 1) do
if Form1.Controls[contador].ClassName = 'TEdit' then
(Form1.Controls[contador] as TEdit).Text := '';
end;
No Button3, altere a propriedade nome para btnList e altere a propriedade caption para ListBox, clique na propriedade Items e digite alguns valores para seu listbox (para adicionar mais linhas basta clicar ENTER). Insira o código a seguir:
procedure TForm1.btnListClick(Sender: TObject);
var
contador: integer;
begin
for contador := 0 to (Form1.ControlCount - 1) do
if Form1.Controls[contador].ClassName = 'TListBox' then
(Form1.Controls[contador] as TListBox).Items.Clear;
end;
No Button4, altere a propriedade nome para btnLabel e a propriedade caption para Rótulo. Insira o código a seguir:
procedure TForm1.btnLabelClick(Sender: TObject);
var
contador: integer;
begin
for contador := 0 to (Form1.ControlCount - 1) do
if Form1.Controls[contador].ClassName = 'TLabel' then
(Form1.Controls[contador] as TLabel).Caption := 'alterações simultâneas em todos os componentes de mesmo tipo';
end;
Nesse exemplo vimos como mudar as propriedades caption, lines, items e text. Porém, é possível alterar quaisquer propriedades de quaisquer componentes. Agora execute sua aplicação e veja o funcionamento.
por Erick Rhamnusia