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

uploader@clubedelphi.net