Fórum porque o comando With nao funciona... #214751
17/02/2004
0
Bem galera... gostaria de fazer o seguinte codigo
pq so funciona com o ultimo??
With botao1, botao2, botao3, botaoN do
begin
enable := false;
end;
pq so funciona com o ultimo??
Pantoja
Curtir tópico
+ 0
Responder
Posts
17/02/2004
Cebikyn
Pq o código citado equivale a:
Logo, apenas o último botão é afetado.
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.
Responder
Gostei + 0
17/02/2004
Cebikyn
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)