Xtykutl

I have a MDIChild form that I open as follows:

Application.CreateForm (TForm1, Form1);

exemple MDIChild form class

unit Unit1;  

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type

  TForm1 = class(TForm)

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

end.

but sometimes I need this form in modal ... with some tips I adapted my code as follows to open it in modal mode:

Application.CreateForm (TForm1, Form1); 

Form1.FormStyle: = fsNormal; 

Form1.Visible: = False; 

Form1.Position: = poMainFormCenter; 

Form1.ShowModal;

that way it works, but it blinks until it shows on the screen ..

I would like to know if there is any way to not flash / show the form until you reach the Form1.ShowModal call;

type

  TfrmManProduto = class(TForm)

  public

    constructor Create(AOwner: TComponent; isModal: Boolean); reintroduce;

  end;



implemetation



TfrmManProduto.Create(AOwner: TComponent; isModal: Boolean);

begin

  inherited Create(AOwner);



  Position := poMainFormCenter;



  if not (isModal) then

  begin

    FormStyle := fsMDIChild;

    Visible := True;

  end;

end;

Call MDIChild Style (Non-Modal)

frmManProduto := TfrmManProduto.Create(Application, False);

Call Normal Style (Modal)

frmManProduto := TfrmManProduto.Create(Application, True);

frmManProduto.ShowModal();