Динамическая загрузка компонентов в приложение из ресурсов *.DFM

[EOR]

Приветствую всех,

Пытаюсь реализовать сабж.

Подгрузка ресурса (панельки с мемо на ней) проходит нормально без ошибок, но в браузере почему-то отображается не правильно.

Вот содержимое MyUniPanel.dfm

object MyUniPanel: TUniPanel
  Left = 0
  Top = 0
  Width = 500
  Height = 400
  object UniMemo1: TUniMemo
    Left = 10
    Top = 10
    Width = 200
    Height = 100
    Hint = ''
    Lines.Strings = (
      'UniMemo1'
      'UniMemo1'
      'UniMemo1'
      'UniMemo1'
      'UniMemo1')
    TabOrder = 0
  end
end

Вот код, который подгружает панель

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  StrStream: TStringStream;
  Component: TUniPanel;
begin
  StrStream := TStringStream.Create;
  try
    StrStream.LoadFromFile(UniServerModule.FilesFolderPath + 'MyUniPanel.dfm');
    Component := TUniPanel(StringToComponent(StrStream.DataString));
    Component.Parent := MainForm;
    Component.Align := alClient;
    Application.InsertComponent(Component);
  finally
    StrStream.Free;
  end;
end;

Что я делаю не так???

Заранее спасибо. Тестовый проект прикладываю.

 

UniGUI_DFM_Load_Test.zip

[zilav]

что-то не уверен я что оно так работать будет, это же не VCL

[EOR]

Все заработало. Забыл отписаться просто.

DFM

object MyUniForm: TUniForm
  Left = 0
  Top = 0
  Width = 500
  Height = 400
  Color = clSkyBlue
  object UniMemo1: TUniMemo
    Left = 10
    Top = 10
    Width = 200
    Height = 80
    Hint = ''
    Color = clMoneyGreen
    Lines.Strings = (
      'UniMemo1'
      'UniMemo1'
      'UniMemo1'
      'UniMemo1'
      'UniMemo1')
    TabOrder = 0
  end
  object Label1: TUniLabel
    Left = 220
    Top = 10
    Width = 31
    Height = 13
    Caption = 'Label1'
  end
  object Button1: TUniButton
    Left = 220
    Top = 30
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = UniButton1Click <-- не работает
  end
  object ListBox1: TUniListBox
    Left = 10
    Top = 110
    Width = 200
    Height = 60
    TabOrder = 1
    Items.Strings = (
      'ListBox1'
      'ListBox1'
      'ListBox1')  
  end
end

 

Если интересно выложу демку.

Только пока с обработчиками событий на контролах не разобрался. Чего то там пока все глухо