Delphi Mdichild flashing form when opening in modal mode

Question

I have a form MDIChild which I open as follows:

Application.CreateForm(TfrmManProduto, frmManProduto);

However, sometimes I need this form in modal... with some tips I adapted my code the following way to open it in modal mode:

Application.CreateForm(TfrmManProduto, frmManProduto);  
frmManProduto.FormStyle   := fsNormal;                 
frmManProduto.Visible     := False;
frmManProduto.Position    := poMainFormCenter;
frmManProduto.ShowModal;

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

I wonder if there is any way to not flash/show the form until you reach the call frmManProduto.ShowModal;

Answer 1

Set the property Visible and FormStyle of the form as False and fsNormal respectively by default and create a constructor method that takes a parameter stating whether the form will be modal or not, something like that:

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;

To create the form would be like this:

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