Delphi. Трюки и эффекты. Александр Чиртик

сообщений:

      while (Longint(GetMessage(mess, hMainWnd, 0, 0)) > 0)

      do begin

      TranslateMessage(mess);

      DispatchMessage(mess);

      end;

      Здесь API-функция GetMessage возвращает значения больше 0, пока в очереди не обнаружится сообщение WMQUIT. В случае возникновения какой-либо ошибки функция GetMessage возвращает значение-1. Функция TranslateMessage преобразует сообщения типа WM_KEYDOWN, WM_KEYUP, WM_SYSKEYDOWN и WM_ SYSKEYUP В сообщения СИМВОЛЬНОГО ввода (WM_CHAR, WM_SYSCHAR, WM_DEADCHAR, WM_SYSDEADCHAR). Функция DispatchMessage в общем случае (за исключением сообщения WMTIMER) вызывает функцию обработки сообщений нужного окна.

      Внешний вид самого окна, созданного в этом примере, приводится на рис. 2.2.

      Рис. 2.2. Окно, созданное вручную

      Кстати, пока размер приложения всего 16 Кбайт.

      2.3. Окно с элементами управления

      После того как мы рассмотрели создание простейшего окна, самое время позаботиться о его наполнении элементами управления. Для стандартных элементов управления в системе уже зарегистрированы классы окон. Их перечень следующий:

      • BUTTON – оконный класс, реализующий работу обычной кнопки, флажка, переключателя и даже рамки для группы элементов управления (GroupBox);

      • СОМВОВОХ – раскрывающийся список;

      • EDIT – текстовое поле, может быть как однострочным, так и многострочным, с полосами прокрутки или без;

      • LISTBOX – список;

      • SCROLLBAR – полоса прокрутки;

      • STATIC – статический текст (он же Label, надпись, метка и пр.), кроме текста, может содержать изображение.

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

      Создание элементов управления

      Целесообразно написать более краткие функции создания элементов управления, чтобы, формируя интерфейс формы «на лету», не приходилось «украшать» код громоздкими вызовами функций CreateWindow tumCreateWindowEx. Этим мы сейчас и займемся. Сразу необходимо отметить: предполагается, что все функции помещены в модуль (модуль Controls в файле Controls.pas), в котором объявлены глобальные переменные hAppInst и hParentWnd. Эти переменные инициализируются перед вызовом первой из перечисленных ниже процедур или функций создания и работы с элементами управления (инициализацию можно посмотреть в листинге 2.21).

      Внимание!

      Обратите внимание на параметр id функций создания и манипулирования элементами управления. Это целочисленное значение идентифицирует элементы управления в пределах родительского окна.

      Итак, для создания обычных кнопок можно использовать функцию из листинга 2.7 (все рассмотренные далее функции создания элементов управления возвращают дескриптор созданного окна).

Листинг 2.7. Создание кнопки

      function CreateButton(x, y, width, height, id:Integer;

      caption : String):HWND;

      begin

      CreateButton :=

      CreateWindow('BUTTON', PAnsiChar(caption), WS_CHILD or

      WS_VISIBLE or BS_PUSHBUTTON or WS_TABSTOP,

      x, y, width, height, hParentWnd, HMENU(id),

      hAppInst, nil);

      end;

      Приведенная в листинге 2.8 функция создает флажок и устанавливает его.

Листинг 2.8. Создание флажка

      function CreateCheck(x, y, width, height, id: Integer;

      caption: String; checked: Boolean):HWND;

      var

      res: HWND;

      begin

      res :=

      CreateWindow('BUTTON', PAnsiChar(caption), WS_CHILD or

      WS_VISIBLE or BS_AUTOCHECKBOX or WS_TABSTOP,

      x, y, width, height, hParentWnd, HMENU(id),

      hAppInst, nil);

      if ((res <>