Ветеран
Сообщения: 1180
Благодарности: 279
|
Профиль
|
Отправить PM
| Цитировать
Один раз моргнёт. Делается так: создаётся невидимая форма стиля POPUP (которая без рамки вообще), на ней картинка TBitmap. Из TCanvas экрана в эту картинку копируется правый нижний угол экрана, затем устанавливаются свойства left, top формы, чтобы она оказалась как раз в этом углу. Затем visible:=true. Фокус может не прокатить, если часы не в правом нижнем углу (а в верхнем например, или вообще автоматически убираютсяс экрана). Тогда проще периодически выставлять системный таймер
|
Отправлено: 23:47, 22-02-2010
| #5
|