Array
(
)

Criação de Componentes

Mitsalito
   - 24 ago 2004

:D e ai mossada estou criando um componente e precisava adcionar nele uma propriedade, mas esta propriedade tem de ser de somente leitura.
:?: Alguém sabe me dizer como fazer isto?


Dopi
   - 24 ago 2004

É só você nao especificar a clausula write...

Veja a declaração da classe abaixo.... as propriedades DigitoFinal e SomaDigitos são read-only

#Código


type
TACBrDig11 = class
private
fsMultIni: Integer;
fsMultFim: Integer;
fsFormulaDigito: TACBrDig11Formula;
fsDocto: String;
fsDigitoFinal: Integer;
fsSomaDigitos: Integer;

public
constructor Create;
Procedure Calcular ;
Procedure CalculoPadrao ;

Property Documento : String read fsDocto write fsDocto ;
Property MultiplicadorInicial : Integer read fsMultIni write fsMultIni ;
Property MultiplicadorFinal : Integer read fsMultFim write fsMultFim ;
Property DigitoFinal : Integer read fsDigitoFinal ;
Property SomaDigitos : Integer read fsSomaDigitos ;
Property FormulaDigito : TACBrDig11Formula read fsFormulaDigito
write fsFormulaDigito ;
end;