ShowMask in Callback

[picyka]

procedure TMainForm.UniButton1Click(Sender: TObject);
begin
  UniForm1.Show(
    procedure(Sender: TComponent; Result:Integer)
    begin
      UniMemo1.Lines.Add('Form: '+(Sender as TuniForm).Name+', Result: '+IntToStr(Result));

      MainForm.ShowMask('teste');

      Sleep(1500);

      MainForm.Hide;
    end
  );
end;

Demos: uniGUI\Demos\Desktop\Form Anonymous Callback

EnableSynchronousOperations = True

I'm creating a custom message,

and I would like after the associate's response, to make a long process.

when running the long process i need a mask.

Note: If I use the native messageDlg it works fine

Some help?

[albertovesx]

Why dont you just set screenmask to the buttón who close the form?

[picyka]

1 minuto atrás, Albertovesx disse:

Por que não define a máscara de tela para o buttón que fecha o formulário?

The user clicks on a button, then the question appears if he wants to continue,

so in that case the button mask doesn't work

[albertovesx]

Add  two @ en showmessageDlg

 

messageDlg('@@Continue?', mtConfirmation, MBYESNO,
 procedure(sender: Tcomponent; res: integer)
 begin

 

[picyka]

1 minuto atrás, Albertovesx disse:

Adicione dois @en showmessageDlg

 

messageDlg('@@Continue?', mtConfirmation, MBYESNO,
 procedure(sender: Tcomponent; res: integer)
 begin

 

Good afternoon, I did it in this format, but I want to use my own form. for being more elegant.

[picyka]

Any magic?

@Sherzod