Joao Morais, muito obrigado pela dica. Deu certo. Abraço. Joao Morais escreveu:
> Marcelo wrote: > > Amigos da lista bom dia. > > > > Estou construindo um componente, com uma propriedade do tipo Integer e > > gostaria que seu valor por padrão viesse com 1, mas está vindo com 0. > > Abaixo segue o código, e gostaria da ajuda dos amigos. Desde já > agradeço > > a todos pela atenção. > > > > type > > TErro = Integer; > > use > TErro = type Integer; > > > > > TECF = class(TComponent) > > FErroImpressora: TErro; > > inclua constructor Create(AOwner: TComponent); override; > > > published > > property ErroImpressora: TErro read FErroImpressora write > > FErroImpressora default 1; > > Mantenha este default 1 > > > end; > > constructor TECF.Create(AOwner: TComponent); > begin > inherited Create(AOwner); > FErroImpressora := 1; > end; > > -- > Joao Morais > >
