Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

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 вашего модуля:

  5. 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 и системного меню.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



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


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-13 06:55:05/0.0069811344146729/2