Jump to content

ShowMask in Callback


picyka

Recommended Posts

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?

  • Like 1
Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...