CnPack Forum

#1 [cnpack\cnvcl\Examples\AutoOption的TStringlist]Help
cnpack\cnvcl\Examples\AutoOption的Demo。
在MyClass1里加了属性
private
Fsl : TStringList;
procedure Setsl(Asl: TStringList);
published
constructor Create();
property sl: TStringList read Fsl write Setsl;

constructor TMyClass1.Create;
begin
Fsl := TStringList.Create;
Fsl.Add('a');
Fsl.Add('b');
end;

procedure TMyClass1.Setsl(Asl: TStringList);
begin
ShowMessage('Setting');
end;

我是SBT.T为啥Apply以后Setls不起作用而是直接更改 ..

#1 >>Next Page

Forum:CnVCL 组件包
Thread:[cnpack\cnvcl\Exampl ...
Next Thread:建议：可否在控件包中加 ...

Home
Login

Powered by Discuz!