lue(Form.Components[I], propiedade,valor);
> end;
> end;
> end;
To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 1 Feb 2008 13:13:19 -0200
Subject: Re: Res: [delphi-br] Como saber se um componente tem uma propriedade,
em runtime?
Pe
opa Joao, funcionou... obrigado
[]s
Em 01/02/08, Joao Morais <[EMAIL PROTECTED]> escreveu:
>
> Fellipe Henrique wrote:
> > if IsPublishedProp(Components[i], 'FrameController') then
> > SetPropValue(Components[I], 'FrameController',
> > DM.RzFrameController1);
> >
> > tá dando o seguinte erro: I
r@yahoogrupos.com.br
> Enviadas: Sexta-feira, 1 de Fevereiro de 2008 13:13:19
> Assunto: Re: Res: [delphi-br] Como saber se um componente tem uma
> propriedade, em runtime?
>
> Pessoal, através da dica fiz o seguinte:
>
> if IsPublishedProp( Components[ i], 'FrameControl
Fellipe Henrique wrote:
> if IsPublishedProp(Components[i], 'FrameController') then
> SetPropValue(Components[I], 'FrameController',
> DM.RzFrameController1);
>
> tá dando o seguinte erro: Incompatible types: 'Variant' and
> 'TRzFrameController'
>
> Como transformo TRzFrameContr
razil
- Mensagem original
De: Fellipe Henrique <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 1 de Fevereiro de 2008 13:13:19
Assunto: Re: Res: [delphi-br] Como saber se um componente tem uma propriedade,
em runtime?
Pessoal,
AIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 1 de Fevereiro de 2008 12:46:43
Assunto: RE: Res: [delphi-br] Como saber se um componente tem uma propriedade,
em runtime?
Excelente dica, Evaldo! No entanto, falou mencionar que pra usar es
TypInfo.
>
> Sds.
>
>
>
> To: delphi-br@yahoogrupos.com.br
> From: [EMAIL PROTECTED]
> 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
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
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]
9 matches
Mail list logo