Failed to delete tab at index 0

[Astrolab]

When i change application type from standalone to Isapi module

i get this exception:

 

An Exception has occured in application:

Failed to delete tab at index 0

 

standalone app works.

 

here is dpr:

//{$define UNIGUI_VCL} // Comment out this line to turn this project into an ISAPI module

 

{$ifndef UNIGUI_VCL}

library

{$else}

program

{$endif}

  myApp;

 

uses

  uniGUIISAPI,

  Forms,

  ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},

  MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule},

  Main in 'Main.pas' {MainForm: TUniForm}

  // here goes my others units

;

 

{$R *.res}

 

{$ifndef UNIGUI_VCL}

exports

  GetExtensionVersion,

  HttpExtensionProc,

  TerminateExtension;

{$endif}

 

begin

{$ifdef UNIGUI_VCL}

  ReportMemoryLeaksOnShutdown := True;

  Application.Initialize;

  TUniServerModule.Create(Application);

  Application.Run;

{$endif}

end.

 

[Sherzod]

Hi,

 

Can you give us more details, or making a testcase for this issue ?!

[DiegoNBR]

Hello, did you find out what this problem is? The same is happening to me.

Clarifying, I am creating a VCL form and at the time of Create the problem occurs

[Sherzod]

12 minutes ago, DiegoNBR said:

Hello, did you find out what this problem is? The same is happening to me.

Clarifying, I am creating a VCL form and at the time of Create the problem occurs

Hello,

Can you please clarify first, which edition and build of UniGUI are you using?!

[DiegoNBR]

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;

 

[Camillo Targas]

Hello, I have the same problem, did you find the solution?

[Abaksoft]

On 11/19/2019 at 1:32 PM, DiegoNBR said:

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);

IMHO, This is a No conventional doing in unigui.

Unigui not support a pure classical Delphi VCL form.

If you want to convert your old form (vcl), then create a new unigui Project, with a new Uniform and rewrite your code, with unigui components.

Regards