Home

Page 105
Page 105
background image

 Глава 3

Для начала я покажу, как создавать круглые окна и окна с дырками. Создайте

новый проект и в обработчике события

 напишите следующий код:

procedure

 (Sender: TObject) ;

FormRgn:HRGN;

begin

 True) ;

end;

 З.8. Окно овальной формы

Запустите приложение, и вы увидите овальное окно (рис. 3.8). Как это по-

лучилось? Очень просто. В обработчике

 использованы две

WinAPI-функции: CreateEllipticRgn и SetWindowRgn. Рассмотрим обе

функции более подробно:

 //Левая позиция

 //Верхняя

 //Правая

 Integer //Нижняя

): HRGN;

Данная функция создает область в виде эллипса. В качестве параметров пе-

редаются размеры эллипса.

HWnd:

 //Указатель на нашу форму

 HRGN, //Предварительно созданная область

 //Флаг перерисовки окна

Эта функция назначает указанному в качестве первого параметра окну соз-

данную область, которая указывается во втором параметре. Если последний

параметр равен true, то окно после назначения новой области будет пере-

рисовано, иначе это придется сделать


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.