Fórum Usando o componente tag #156549
29/04/2003
0
Saudações,
estou fazendo um aplicativo e gostaria que, ao clicar num radiobutton, fosse capaz de desabilitar labels e dbcomboboxes. Detalhe : são bem uns 20 no mesmo form então eu separei 10 de cada com tag 1 e outros 10 com tag 0. Ao clicar nos radiobuttons eles desabilitam uma metade e habilitam outra. Sei que é possível fazer pois meu professor já passou um exercício assim mas eu não lembro e o disquete em que o exercício estava não está comigo. Se alguém souber como é e puder me ajudar, agradeço
estou fazendo um aplicativo e gostaria que, ao clicar num radiobutton, fosse capaz de desabilitar labels e dbcomboboxes. Detalhe : são bem uns 20 no mesmo form então eu separei 10 de cada com tag 1 e outros 10 com tag 0. Ao clicar nos radiobuttons eles desabilitam uma metade e habilitam outra. Sei que é possível fazer pois meu professor já passou um exercício assim mas eu não lembro e o disquete em que o exercício estava não está comigo. Se alguém souber como é e puder me ajudar, agradeço
Elias Jr
Curtir tópico
+ 0
Responder
Posts
29/04/2003
By Alemão
Procedure Desabilitar;
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TLabel then
begin
TLabel(Components[i]).Visible := False;
end;
end;
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TLabel then
begin
TLabel(Components[i]).Visible := False;
end;
end;
Responder
Gostei + 0
29/04/2003
Elias Jr
[quote:400ff0be53=´by Alemão´]Procedure Desabilitar;
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TLabel then
begin
TLabel(Components[i]).Visible := False;
end;
end;[/quote:400ff0be53]
Olha amigo valeu mesmo...mas é só outra dúvida, eu não tenho que especificar o número da propriedade tag? Dessa forma que vc pôs num vai fazer com todos os labels? Desculpe a minha inexperiência...
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TLabel then
begin
TLabel(Components[i]).Visible := False;
end;
end;[/quote:400ff0be53]
Olha amigo valeu mesmo...mas é só outra dúvida, eu não tenho que especificar o número da propriedade tag? Dessa forma que vc pôs num vai fazer com todos os labels? Desculpe a minha inexperiência...
Responder
Gostei + 0
29/04/2003
Adilsond
Então, completando a responsta dada:
Procedure Desabilitar;
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TLabel then
begin
// Abilita todas as Labels com tag 0 e desabilita as outras
TLabel(Components[i]).Visible := TLabel(Components[i]).Tag = 0;
end;
end;
// Abilita todas as Labels com tag 1 e desabilita as outras
TLabel(Components[i]).Visible := TLabel(Components[i]).Tag = 1;
Procedure Desabilitar;
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TLabel then
begin
// Abilita todas as Labels com tag 0 e desabilita as outras
TLabel(Components[i]).Visible := TLabel(Components[i]).Tag = 0;
end;
end;
// Abilita todas as Labels com tag 1 e desabilita as outras
TLabel(Components[i]).Visible := TLabel(Components[i]).Tag = 1;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)