Когда нам нужно показать пользователю, что программа занята, или некоторый контрол занят, мы можем использовать UniScreenMask. Работает это так…
Чтобы создать такую маску, необходимо добавить компонент TUniScreenMask, и настроить его свойства
AttachedControl
DisplayMessage
TargetControl
В самом коде, мы напишем следующее
|
1 2 3 4 |
procedure TMainForm.UniButton1Click(Sender: TObject); begin Sleep(3000); end; |
По идее, здесь должен быть некоторый код, который будет выполнен во время того, как пользователь смотрит на маску.