Простой пример стрелочных часов. Имеется возможность перетаскивания по экрану левой кнопкой мышки, вызов PopUp-меню ( с 1-м пунктом "отключение" ) правой кнопкой. Круглый циферблат создан функцией
WinAPI создания региона: CreateEllipticRgn.
Исходник на
http://kachkarvv.ru/faq/src-delphi/d...alog-clock.htmdelphi-analog-clock.jpg