Keep screenmask active after messagedialog or showmessage in a event
Sometime I have the following situation:
I set the screenmask to btnTest, but after the user answer the messagedlg the screen mask desapears. I want that the screen mask remains after the messagedlg. How can I achieve this?
procedure TfrmSomeForm.btnTestClick(Sender: TObject);
begin
Lines of code
messagedlg() // Ask something to the user
A lot of lines of code after messagedlg executing without screen mask
end;
Thanks
Hello, I need a solution too for the same problem.
In the following code:
procedure TMainForm.UniButton1Click(Sender: TObject);
begin
try
ShowMask( 'blocking mask...');
unisession.synchronize;
sleep(1000);
showmessage('step 1');
sleep(1000);
showmessage('step 2');
sleep(1000);
showmessage('step 3');
finally
HideMask;
end;
end;
the mask disappears between step 1 and step 2.
The same behaviour applies to MessageDlg and ShowModal...