Can't serialize any Control

[rareMaxim]

Sample cod:

procedure TForm4.FormCreate(Sender: TObject);
var
  x: string;
  btn1: TButton;
  LCnf: IdjParams;
begin
  btn1 := TButton.Create(Self);
  try
    LCnf := dj.DefaultByProperty;
    LCnf.Engine := TdjEngine.eJDO;
    LCnf.IgnoredProperties := ['Owner', 'ParentControl', 'TagObject', 'Parent'];
    x := dj.From(btn1, LCnf).ToJson;
  finally
    btn1.Free;
  end;
end;

Error:

First chance exception at $004282E5. Exception class $C00000FD with message 'stack overflow at 0x004282e5'. Process Project4.exe (2600)

[mauriziodm]

Hi, the error appears in properties of some class type (not simple types) whose value is equal to "nil" such as 'Action', 'DropDownMenu', 'FontAdapter', and so on.
But is it just an experiment or do you really need it?

[rareMaxim]

@mauriziodm it's testing.