Programmatic TFrame creation

WEB TMS WEB Core
1

Hi!


I try to create a TFrame run-time and I always get a blank form (no frame displayed). No errors, no warnings.

Main window code:


type
  TfrmMain = class(TWebForm)
    procedure WebFormCreate(Sender: TObject);
  private
    { Private declarations }
    frmWork: TFrame;
  public
    { Public declarations }
  end;


var
  frmMain: TfrmMain;


implementation


procedure TfrmMain.WebFormCreate(Sender: TObject);
begin
  frmWork := TfrmStranka.Create(self);
  frmWork.Parent := self;
  frmWork.Align := alClient;
  frmWork.Visible := true;
end;

Frame code:


type
  TfrmStranka = class(TFrame)
    tblStranke: TWebDBTableControl;
    tmrFind: TWebTimer;
    wdsStranke: TXDataWebDataSet;
    dsStranke: TWebDataSource;
    panHeader: TWebPanel;
    edtFilter: TWebEdit;
    ...
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Please help!