[ FranjoZG @ 04.05.2016. 20:55 ] @
Zašto ne radi (i što napraviti da radi) set property-a koji je klasa. Primjer Code: tClass1=class private fNesto: string: fDrugo: integer; publshed property Nesto: string read fNesto write fNesto; property Drugo: integer read fDrugo write fDrugo; end; tClass2=class(neka visual...) private fPrva: tClass1; protected procedure sefPrva(Value: tClass1); published property Prva: tClass1 read fPrva write setfPrva; end; ... procedure tClass2.setfPrva(Value: tClass1); begin fPrva.Nesto := Value.Nesto; fPrva.Drugo := Value.Drugo; end; procedura setfPrva se ne pokrene... Znam da to mogu napraviti u klasi tClass1 i tada radi, ali mi je zgodnije u tClass2. |