Программирование в delphi круглых окон |
Как создать круглую форму на Delphi Создаем круглую форму на DelphiСегодня я хочу показать вам как вы с легкостью можете создать, форму нестандартного вида, например круглую. procedure CreateParams(var Params: TCreateParams); override; Жмем комбинацию клавиш Ctrl+Shift+C Delphi генерирует пустую процедуру. procedure TForm1.CreateParams(var Params: TCreateParams); Двигаемся дальше и создаем обработчик событий OnCreate на форме, прописываем там следующий код. Полный листинг процедуры OnCreate: procedure TForm1.FormCreate(Sender: TObject); Вот и все запускайте проект и наслаждайтесь результатом. До встречи www.delphiexpert.ru P.S не забываем подписываться на бесплатную мультимедийную рассылку. Форма для подписки расположена с права и с лева. |