Databases
StackOverflow2013
Postsdbo
POValues of a property at design time, doesn't appear at run time
Body
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POValues of a property at design time, doesn't appear at run time
    text
    copied!<p>I have the following component which contains a property derived from a custom class:</p> <pre><code>unit MyComponentTest3; interface uses Windows, ExtCtrls,Classes,Controls; type TMyClass3 = class myString: string; myNumber: double; end; TMyComponentTest3 = class(TCustomPanel) private FMyProperty: TMyClass3; procedure SetMyProperty(Value: TMyClass3); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure SetMyPropertyPublic(AmyString: string; AmyNumber: double); published property MyProperty: TMyClass3 read FMyProperty write SetMyProperty; end; procedure Register; implementation procedure Register; begin RegisterComponents('MyComponents', [TMyComponentTest3]); end; { TMyComponentTest3 } constructor TMyComponentTest3.Create(AOwner: TComponent); begin inherited; FMyProperty:= TMyClass3.Create; end; destructor TMyComponentTest3.Destroy; begin FMyProperty.Free; inherited; end; procedure TMyComponentTest3.SetMyProperty(Value: TMyClass3); begin with FMyProperty do begin myString:= Value.myString; myNumber:= Value.myNumber; end; end; procedure TMyComponentTest3.SetMyPropertyPublic(AmyString: string; AmyNumber: double); var auxMyProperty: TMyClass3; begin auxMyProperty:= TMyClass3.Create; with auxMyProperty do begin myString:= AmyString; myNumber:= AmyNumber; end; SetMyProperty(auxMyProperty); auxMyProperty.Free; end; end. </code></pre> <p>It works fine, but when I set the values of the property at design time and run the program the values disappear. The same problem I get if I set the values of the component, save everything and when I load the values are not there anymore... </p> <p>I guess the problem is because I am creating an instance of the custom class all the time, but I am not sure, and I don't know how to get around that. Do anyone has an idea of what can I do?</p>
 

Querying!

 
Guidance
An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload