Version: uniGUI Complete Trial Edition 1.90.0.1509
procedure TFrmProdutosWeb.UniFormCreate(Sender: TObject);
var
LProdutosWeb: TFrmProdutos; //VCL Form to convert in Unigui in Runtime
begin
bBloquearCreateShowVCL := True;
//Error occurs here:
LProdutosWeb := TFrmProdutos.Create(nil);
LProdutosWeb.Visible := False;
DPadraoControllerDM.View.Form := Self;
SuspendLayouts;
try
Self.Caption := LProdutosWeb.Caption;
UniServerModule.Title := Self.Caption;
Self.Top := LProdutosWeb.Top;
Self.Left := LProdutosWeb.Left;
Self.Height := LProdutosWeb.Height;
Self.Width := LProdutosWeb.Width;
TConversorVCL2Unigui.ConverterObjetos(LProdutosWeb, Self);
finally
bBloquearCreateShowVCL := False;
LProdutosWeb.FormCreate(LProdutosWeb);
LProdutosWeb.FormShow(LProdutosWeb);
ResumeLayouts;
LProdutosWeb.Free;
end;
end;