Когда нам нужно показать пользователю, что программа занята, или некоторый контрол занят, мы можем использовать UniScreenMask. Работает это так…
![](http://digital-flame.ru/wp-content/uploads/2019/05/1.jpg)
![](http://digital-flame.ru/wp-content/uploads/2019/05/2.jpg)
![](http://digital-flame.ru/wp-content/uploads/2019/05/3.jpg)
Чтобы создать такую маску, необходимо добавить компонент TUniScreenMask, и настроить его свойства
AttachedControl
DisplayMessage
TargetControl
![](http://digital-flame.ru/wp-content/uploads/2019/05/4-2-1024x627.jpg)
В самом коде, мы напишем следующее
1 2 3 4 |
procedure TMainForm.UniButton1Click(Sender: TObject); begin Sleep(3000); end; |
По идее, здесь должен быть некоторый код, который будет выполнен во время того, как пользователь смотрит на маску.