Parametro a todos los objetos de un tipo

[amadis]

Quisiera saber si se puede lograr pasarle un parametro a todos los objetos de un determinado tipo que haya en el form.

Por ej por medio de un boton dejar invisible todos los label que haya (que no se cuantos son)

Se me ocurre algo así pero no se como hacerlo.


if Tobject.ClassName = TLabel
then
with Tobject.ClassName as TLabel
do
begin
visible := false;
end;

[dec]

Hola,

Pues algo similar a lo que planteas...



var
i: integer;
begin
for i := 0 to Form1.ControlCount-1 do
begin
if (Form1.Controls[i] is TLabel) then
TLabel(Form1.Controls[i]).Visible := false;
end;
end;