Эллипсовидное окноDelphi , Программа и Интерфейс , ИнтерфейсЭллипсовидное окноДля начала нужно обеспечить возможность пользователю перемещать окно, хватаясь за клиентскую область, а не за заголовочную, т.к. полосы заголовка, собственно, у нас нет. Сначала в частных объявлениях (после слова private) объявляем процедуру:
Затем в разделе implementation описываем её так:
Далее самое главное. По созданию окна (событие OnCreate) пишем следующий код:
В статье описано создание эллипсовидного окна в Delphi, начиная с объявления процедуры WMNCHitTest и заканчивая кодом для создания эллипса при запуске формы. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
|||||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |