Tratamento de Botões

[NathaN_XLR 0]

Olá Pessoal!

 

estou com dificuldade para resolver um probleminha, tenho ao todo em meu programa 81 botões.

 

Todos estão em (CHECKED-Quando Clicado ele é selecionado, fica com uma cor laranja).

o problema é que se eu clicar em outro botão, ele tambem fica selecionado, e tambem com os demais.

 

tambem tem uma propriedade "DOWN"

essa propriede seleciona e desmarca o botão com valores boleanos.

ex:

botao1.down:=false;

botao1.down:=true;

 

eu queria uma forma eficiente para tratar esses botões.

 

Desde ja agradeço !

[Spoock 0]

Não sei se é bem isso que você quer, mas pode mudar as propriedades de qualquer componente no delphi. Veja o código:

 

procedure TForm1.Button1Click(Sender: TObject);
Var I : Integer;
begin
 // Faz um laço FOR para pegar todos os componentes do Form1
 for I := 0 to Form1.ComponentCount-1 do
   begin
     // Verifica se o componente encontrado é um TButton
     if ((Form1.Components[i]) is TButton) then
       begin
         // Se é um TButton, muda a propriedade Caption dele para 'Valor'
         TButton(Form1.Components[i]).Caption:='Valor';
     	end;
   end;
end;