porque o comando With nao funciona...

Delphi

17/02/2004

Bem galera... gostaria de fazer o seguinte codigo
With botao1, botao2, botao3, botaoN do
   begin
      enable := false;
   end;


pq so funciona com o ultimo??


Pantoja

Pantoja

Curtidas 0

Respostas

Cebikyn

Cebikyn

17/02/2004

Pq o código citado equivale a:

with botao1 do begin
  with botao2 do begin
    with botao3 do begin
      with botaoN do begin
        enable := false;
      end; 
    end;
  end;
end;


Logo, apenas o último botão é afetado.


GOSTEI 0
Cebikyn

Cebikyn

17/02/2004

Para manipular vários botões, altere o Tag dos botões a serem alterados para um número diferente de 0 e use assim:

var
  x: integer;
begin
  for x=0 to ComponentCount-1 do
    if (Components[x] is TButton)and(Components[x].Tag <> 0)then
      (Components[x] as TButton).Enabled := false;
end;



GOSTEI 0
POSTAR