Usando o componente tag

Delphi

29/04/2003

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


Elias Jr

Elias Jr

Curtidas 0

Respostas

By Alemão

By Alemão

29/04/2003

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;


GOSTEI 0
Elias Jr

Elias Jr

29/04/2003

[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...


GOSTEI 0
Adilsond

Adilsond

29/04/2003

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;


GOSTEI 0
POSTAR