Como dar visible false em um array de Objetos?

[Minarini 0]

por ex: tem um botao que chama uma funçãoFuncaoInvisivel([edit1,edit2,edit3,edit4,edit5],False);ai na função seria + ou - assimprocedure FuncaoInvisivel(Objetos : array of tObjects, Visivel : Boolean);var i : word;begin for i := 0 to pred(length(Objetos)) do // como pegar a classe do objeto para dar visible false ou true? endou como poderia fazer esse procedimento

[marcio.theis 3]

Pode fazer da seguinte forma:

 

procedure FuncaoInvisivel(Objetos: array of TObject; Visivel: Boolean);var	x: integer;beginfor x:=0 to Pred(Length(Objetos)) do	begin	if Objetos[x].ClassType = TEdit then		(Objetos[x] as TEdit).Visible:=Visivel;	end;end;

[Hugo Slepicka 0]

Usando um Typecast para TControl podemos acessar a propriedade Visible.... testa aew pra ver se da certo... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

procedure TForm1.VisibleFalse(Objetos: array of TObject; Status: Boolean);var  i: Integer;begin  for i := 0 to Length(Objetos) - 1 do  Begin	TControl(Objetos[i]).Visible := Status;  end;end;

 

procedure TForm1.Button1Click(Sender: TObject); begin   VisibleFalse([Edit1,Edit2,Edit3],False); end;

[Minarini 0]

vlw eu tinha feito igualzinho só não sabia do tcontrolpor isso não tava achando a propriedade visible ok funcionou !!!