Delphirus - Изменение стандартной формы

[/] Все о delphi Delphirus - прграммирование на delphi Навигация Главная Статьи Базы данных Графика Защита Интернет Система Тексты Мультимедиа Файлы Формы и окна Другое Советы Базы данных Графика Интернет Мультимедиа Система Тексты Файлы Файлы Исходники Компоненты Инфо Поиск по сайту Обратная связь Самое популярное Аккаунт Карта сайта Реклама Размещение статей - CLX.ru Изменение стандартной формы "); // --> Вас наверное часто удивляла форма окна, которая появляется при загрузке Norton Utilites и других подобных программ. Она имела не прямоугольный размер и ВЫ задавались вопросом : как получить такую форму? Хотя я подозреваю, что это обычный Bitmap/ Оказывается сделать это довольно просто. При этом Ваша форма может иметь самые замысловатые очертания т.к. все это задается с помощью полигона. Все делается с помощью одной единственной процедуры : SetWindowRgn(Handle, R, True); Handle - указатель на форму, вид которой хотим поменять R - указатель на регион Третий параметр - флаг, при значении TRUE сразу после установки перерисовка Для установки R смотрите функцию CreatePolygonRgn . В примере я задал в качестве региона простой треугольник, но при большей изобретательности можно создавать очень интересные варианты. Например форму-круг или эллипс. Прозрачная форма Приведу простой пример, как можно использовать данную форму. Допустим Вам надо сделать программу- напоминалку. Висит эта форма и на ней постоянно отображаются Ваши встречи, дела, праздники или другая полезная информация. Получится этакий Activ Desctop :) Но будет он жрать ресурсов на порядки меньше.Реализуется все это очень просто. Переписываем конструктор: constructor TForm1.Create(AOwner: TComponent); begin inherited; HorzScrollBar.Visible:= False; // убираем сколлбары, чтобы не мешались VertScrollBar.Visible:= False; // при изменении размеров формы RebuildWindowRgn; // строим новый регион end; А вот процедура "перестройки" региона формы: procedure TForm1.RebuildWindowRgn; var FullRgn, Rgn: THandle; ClientX, ClientY, I: Integer; begin // определяем относительные координаты клиентской части ClientX:= (Width - ClientWidth) div 2; ClientY:= Height - ClientHeight - ClientX; FullRgn:= CreateRectRgn(0, 0, Width, Height); // создаем регион для всей формы // создаем регион для клиентской части формы и вычитаем его из FullRgn Rgn:= CreateRectRgn(ClientX, ClientY, ClientX + ClientWidth, ClientY +ClientHeight); CombineRgn(FullRgn, FullRgn, Rgn, rgn_Diff); // теперь добавляем к FullRgn регионы каждого контрольного элемента for I:= 0 to ControlCount -1 do with Controls[I] do begin Rgn:= CreateRectRgn(ClientX + Left, ClientY + Top, ClientX + Left +Width, ClientY + Top + Height); CombineRgn(FullRgn, FullRgn, Rgn, rgn_Or); end; SetWindowRgn(Handle, FullRgn, True); // устанавливаем новый регион окна end; И самый последний штрих. Если Ваша форма, будет с изменяемыми размерами, то Вам надо добавить: procedure TForm1.Resize; begin inherited; RebuildWindowRgn; // строим новый регион end; Перемещение формы Еще один штрих - произвольное перемещение формы, а не за Title Bar. Так сделано в программе WinAmp. Пишем всего одну процедуру: procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin inherited; // вызов унаследованного обработчика if M.Result = htClient then // Мышь сидит на окне? Если да M.Result := htCaption; // - то пусть Windows думает, что мышь на caption bar end; Разместил 18/03/2004 от rolcom ( Прочитано: ) Связанные ссылки · Больше про Формы и окна · Новость от rolcom Самая читаемая статья: Формы и окна: Окна - такие разные:круглые, треугольные, звездообразные... Рейтинг статьи Средняя оценка: 4.2 Ответов: 5 Пожалуйста, проголосуйте за эту статью: опции Напечатать текущую страницу Отправить статью другу Re: Изменение стандартной формы (Всего: 1) от Stasmailer на 19/07/2004 ( Информация о пользователе | Отправить сообщение ) Полигоны - хорошо! но вверху упоминался Bitmap... Как такой рисунок проги запрограммировать? Я слышал, таких рисунка должно быть 2... Альфа - канал и сама текстура формы. sports news - online order tramadol - Brothers & Sisters - Audio switch - Учет денежных средств - tramadol acetaminophen - ingredient tramadol Page generation 0.242 seconds