Probelmas com propriedade de componente?
Pessoal, tenho um componente que não esta obedecendo a propriedade
A criação do componente é este
A propriedade do componente no object inspector são estas
[b]TFiltro = (ftAtivo, ftInativo, ftAmbos);[/b] Conforme foi feito aqui
[b]property Filtro: TFiltro read FFiltro write SetFiltro default ftAmbos;[/b] E esta atribuido assim
Se eu deixo a propriedade como ftAtivo funciona normal, se eu mudo para ftInativo também esta funcionando normal,
mais se deixo com ftAmbos ao debugar vejo que fica como ftAtivo em vez de ftAmbos. Grato pela ajuda.
type TFiltro = (ftAtivo, ftInativo, ftAmbos); TFCLookUp = class(TComboLookup) private FFiltro : TFiltro; procedure SetFiltro(Filtro: TFiltro); protected procedure DoPopulate; override; procedure DoError(spErrorCode:String); override; procedure Loaded; override; public constructor Create(AOwner: TComponent); override; published property Filtro: TFiltro read FFiltro write SetFiltro default ftAmbos; end;
A propriedade do componente no object inspector são estas
[b]TFiltro = (ftAtivo, ftInativo, ftAmbos);[/b] Conforme foi feito aqui
[b]property Filtro: TFiltro read FFiltro write SetFiltro default ftAmbos;[/b] E esta atribuido assim
procedure TFcLookUp.SetFiltro(Filtro: TFiltro); begin FFiltro := Filtro; end;
mais se deixo com ftAmbos ao debugar vejo que fica como ftAtivo em vez de ftAmbos. Grato pela ajuda.
Adriano Dolce
Curtidas 0
Respostas
Wilson Junior
04/10/2010
No teu Constructor set a propriedade FFiltro para ftAmbos.
Espero ter colaborado.
Espero ter colaborado.
GOSTEI 0
Adriano Dolce
04/10/2010
No teu Constructor set a propriedade FFiltro para ftAmbos.
Espero ter colaborado.
É isso ai amigo , muito obrigado.
Espero ter colaborado.
GOSTEI 0