扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
type TSample = class (TObject) private FSomeValue: Integer; public function SomeAction(const Data: string): Boolean; property SomeValue: Integer read FSomeValue write FSomeValue; end; TSampleWrapper = class(TComponent) private FSample: TSample; public property Sample: TSample read FSample; end; |
TSampleWrapper = class (TComponent) private FSample: TSample; protected function GetSomeValue: Integer; procedure SetSomeValue(Value: Integer); public function SomeAction(const Data: string): Boolean; property Sample: TSample read FSample; property SomeValue: Integer read GetSomeValue write SetSomeValue; |
function TSampleWrapper.GetSomeValue: Integer; begin Result := Sample.SomeValue; end; procedure TSampleWrapper.SetSomeValue(Value: Integer); begin Sample.SomeValue := Value; end; function TSampleWrapper.SomeAction(const Data: string): Boolean; begin Result := Sample.SomeAction(Data); end; |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。