Маленькая область заголовка

Delphi , Программа и Интерфейс , Заголовок формы

Автор: Neil

Вам необходима небольшая область заголовка подобно той, которую использует Microsoft для управления палитры в VB, правильно? Около 1/3 от высоты нормальной области заголовка, без текста и без блока системных кнопок? Хорошо, я могу дать вам небольшой пример.

1. Создайте вторичную форму и установите BorderStyle в bsSingle
2. Разместите на форме компонент Label, удалите значение свойства Caption, установите Color в clBlue и Align в alTop. Задайте высоту компонента такую, какую высоту заголовка вы хотите
3. Добавьте следующие два метода к вашей форме:

   PROCEDURE TForm2.CreateParams(VAR Params: TCreateParams); BEGIN Inherited CreateParams(Params); WITH Params DO Style := (Style OR WS_POPUP) AND NOT WS_DLGFRAME; END; PROCEDURE TForm2.wmNCHitTest(VAR Msg: TWMNCHitTest); BEGIN Inherited; WITH Msg DO IF YPos-Top <= Label2.Height THEN Result := HTCAPTION; END;

   
   
4. Объявите эти функции в секции private вашего модуля:

PROCEDURE CreateParams(VAR Params: TCreateParams); override; PROCEDURE wmNCHitTest(VAR Msg: TWMNCHitTest); message WM_NCHITTEST;




Установите свойство вторичной формы Visible в True. Теперь у вас есть плавающее окно с мальнокой областью заголовка. Для создания также "небольшого" системного меню, НАРИСУЙТЕ его на форме и в ответ на событие WM_NCHITTEST установите Result в HTSYSMENU, если мышь в пределах области заголовка.

Автор статьи Neil описывает создание маленькой области заголовка в Delphi, похожей на используемую Microsoft для управления палитрой в VB, с использованием форм и компонентов Label, BorderStyle и системного меню.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Заголовок формы ::