Delphi2010 do ocx in form when using a custom attribute value cannot save-CodePudding

As attributes, need to do a Property1 attribute, assignment and read the code roughly as follows:

 
Property1Value: long; 
. 
The function TMyOCX. Get_Property1: long; 
The begin 
Result:=Property1Value; 
end; 

Procedure TMyOCX. Set_Property1 (Value: long); 
The begin 
Property1Value:=value; 
end;

Such ocx in form, when using the editor changes good attributes Property1Value=https://bbs.csdn.net/topics/2, runtime doesn't work, back to the default value is 0, even after the preservation of the project, then opens, ocx Property1Value and come back to the default 0,

Consult everybody, how to solve this,

CodePudding user response:

Don't sink, please, thank you.

CodePudding user response:

No one knows?? I don't believe it, ha ha