Class

[apocalipse 0]

Salve Galera... :unsure: belezaAlguem sabe como crio uma procedure que receba um componente e manipule as propriedades deste componete. Vamos supor que esta procedure faca parte de uma outra classe. Help.Saudade e Paz!!!!ApocalipseMSN OtacilioRicardo@hotmail.comICQ 337637102E-Mail otacilio@upbrasil.com.br

[gilbertoscruz 0]

Bom pelo o q eu entendi, você quer passar um componente em uma procedure para ser manipulado depois pela procedure !Bom se foi isso mesmo q eu entendi você poderia fazer o seguint:procedure TForm.ManipulaComp(Edit: TEdit);begin... Edit.Text := ''; Edit.Text := 'TESTE';...end;acho q foi isso mesmo q entendi !falow

[apocalipse 0]

Ola gilbertoscruz :unsure: Obrigado pela resposta.Desta forma da certa para uma componente, mas para todos não. Gostaria que isso funcionasse para todos. A procedure identifica qual é o componente e modifica a propriedade passada como parâmetro.Bom, e isso ae.ApocalipseMSN OtacilioRicardo@hotmail.comICQ 337637102E-mail otacilio@upbrasil.com.br

[gilbertoscruz 0]

Bom para isso q você quer eu nunca vi !mas tente fazer isso então procedure TForm.ManipulaComp(Componente: TComponent);begin... if Componente is TEdit then begin (Componente as TEdit).Text := ''; (Componente as TEdit).Text := 'TESTE'; end;...end;A unica coisa é q você tem q identificar qual a classe o componente pertence !mas fazendo isso, espero ter ajudado :D falow

[apocalipse 0]

Salve gilbertoscruz :unsure: Estava procurando no help do delphi algo sobreConsegui pegar o nome da classe e das classes parente de um objeto.Consigo pegar o nome da classe desta formaVar t:TCheckBox;begin t:=TCheckBox.Create(Application); get_class(t);//////////////////////////////////////////////////////////////////Var t:TClassFinder; tt:TObject; t:=TClassFinder(a); Memo1.Lines.Add(t.ClassType.ClassName);/////////////////////////////////////////////////////////////////tentei usar o GetObjectProp mas nao seu muito certo.Voce tem alguma sugestão.ValeuApocalipse :unsure: MSN OtacilioRicardo@hotmail.comICQ 337637102E-Mail otacilio@upbrasil.com