Propriedade Visible
Ola!
Bem! Gostaria de saber como percorrer todo o F[b:c441750d8d]orm[/b:c441750d8d] e atribuir o valor False para alguns componentes.
Obs: Este valor false seria atribuido na propriedade [b:c441750d8d]Visible[/b:c441750d8d]
Se algum puder me ajudar ficaria muito grato!
vlw :D
Bem! Gostaria de saber como percorrer todo o F[b:c441750d8d]orm[/b:c441750d8d] e atribuir o valor False para alguns componentes.
Obs: Este valor false seria atribuido na propriedade [b:c441750d8d]Visible[/b:c441750d8d]
Se algum puder me ajudar ficaria muito grato!
vlw :D
Fernando Piccini
Curtidas 0
Respostas
Tnaires
09/03/2005
Olá
Vc pode armar um laço for para percorrer os componentes do form, e analisá-los:
Abraços
Vc pode armar um laço for para percorrer os componentes do form, e analisá-los:
for i := 0 to Form1.ComponentCount - 1 do begin // Aqui vc processa os componentes, usando Form1.Components[i] end;
Abraços
GOSTEI 0
Lucianopimenta
09/03/2005
var
i: integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TControl then
(Components[i] as TControl).Visible := False;
end;
i: integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TControl then
(Components[i] as TControl).Visible := False;
end;
GOSTEI 0
Fernando Piccini
09/03/2005
Vlw pela ajuda!
Mais uma pergunta para o lucianopimenta ou para alguem q possa me ajudar.
Não daria de fazer um Cast Generico desde comparar com cada classe de componente????? como o lunianopimenta sugeriu.
vlw
Mais uma pergunta para o lucianopimenta ou para alguem q possa me ajudar.
Não daria de fazer um Cast Generico desde comparar com cada classe de componente????? como o lunianopimenta sugeriu.
vlw
GOSTEI 0
Lucianopimenta
09/03/2005
Esse eh um teste genérico, se fosse especifico seria:
if Components[i] is TEdit then
(Components[i] as TEdit).Visible := False;
if Components[i] is TEdit then
(Components[i] as TEdit).Visible := False;
GOSTEI 0