Pessoal, através da dica fiz o seguinte:
if IsPublishedProp(Components[i], 'FrameController') then
SetPropValue(Components[I], 'FrameController',
DM.RzFrameController1);
tá dando o seguinte erro: Incompatible types: 'Variant' and
'TRzFrameController'
Como transformo TRzFrameController pra variant?
OBrigado
[]s
Em 01/02/08, Rubem Nascimento da Rocha <[EMAIL PROTECTED]> escreveu:
>
>
>
> Excelente dica, Evaldo! No entanto, falou mencionar que pra usar essa sua
> função, se faz necessário um uses da unit TypInfo.
>
> Sds.
>
> ________________________________
>
> To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> From: [EMAIL PROTECTED] <evaldoavelar%40yahoo.com.br>
> Date: Fri, 1 Feb 2008 06:39:32 -0800
> Subject: Res: [delphi-br] Como saber se um componente tem uma propriedade,
> em runtime?
>
>
> Eu criei essa função ontem:
>
> procedure AlteraComponete(Form :TForm; propiedade : string; valor :
> variant);
> var i : integer;
> begin
> for I := 0 to Form.ComponentCount -1 do
> begin
> if IsPublishedProp(Form.Components[i], propiedade)then
> begin
> SetPropValue(Form.Components[I], propiedade,valor);
> end;
> end;
> end;
>
> pode usa-la assim
>
> AlteraComponete(FGerenciaUsuario,'ReadOnly',true);
>
> --
> Atenciosamente:
> Evaldo Avelar Marques
> Programador Junior: Delphi, firebird/interbase, C# Dot Net, C++
> Debian GNU/Linux.
> [EMAIL PROTECTED] <evaldoavelar%40yahoo.com.br> Belo Horizonte/MG
> Brazil
>
> ----- Mensagem original ----
> De: Fellipe Henrique <[EMAIL PROTECTED] <fellipeh%40gmail.com>>
> Para: "delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>" <
> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>>
> Enviadas: Sexta-feira, 1 de Fevereiro de 2008 10:26:24
> Assunto: [delphi-br] Como saber se um componente tem uma propriedade, em
> runtime?
>
> Olá amigos, preciso saber se um componente tem uma propriedade, que eu vou
>
> selecionar, e caso tenha passe um valor para ela. Porém tem de ser
> genérico
>
> algo como:
>
> for i:=0 to ComponentsCount- 1
>
> if Components[i] .PROPRIEDADE = True then
>
> Components[i] .PROPRIEDADE := OBJETO;
>
> Isso existe? Como eu faria?
>
> Obrigado desde já.
>
> --
>
> ____________ _________ _________ ___
>
> T.·.F.·.A.·.
>
> Fellipe Henrique
>
> [EMAIL PROTECTED] com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
> http://br.mail.yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> __________________________________________________________
> Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live
> Search Maps!
> http://www.livemaps.com.br/index.aspx?tr=true
>
>
>
--
_________________________________
T.·.F.·.A.·.
Fellipe Henrique
[EMAIL PROTECTED]
[As partes desta mensagem que não continham texto foram removidas]
