• СОМВОВОХ – раскрывающийся список;
• EDIT – текстовое поле, может быть как однострочным, так и многострочным, с полосами прокрутки или без;
• LISTBOX – список;
• SCROLLBAR – полоса прокрутки;
• STATIC – статический текст (он же Label, надпись, метка и пр.), кроме текста, может содержать изображение.
Ввиду большого количества возможных стилей окон элементов управления их перечень здесь не приводится, но его можно найти в приложении 2.
Создание элементов управления
Целесообразно написать более краткие функции создания элементов управления, чтобы, формируя интерфейс формы «на лету», не приходилось «украшать» код громоздкими вызовами функций CreateWindow tumCreateWindowEx. Этим мы сейчас и займемся. Сразу необходимо отметить: предполагается, что все функции помещены в модуль (модуль Controls в файле Controls.pas), в котором объявлены глобальные переменные hAppInst и hParentWnd. Эти переменные инициализируются перед вызовом первой из перечисленных ниже процедур или функций создания и работы с элементами управления (инициализацию можно посмотреть в листинге 2.21).
Внимание!
Обратите внимание на параметр id функций создания и манипулирования элементами управления. Это целочисленное значение идентифицирует элементы управления в пределах родительского окна.
Итак, для создания обычных кнопок можно использовать функцию из листинга 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 функция создает флажок и устанавливает его.
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 <> 0) and checked) then
SendMessage(res, BM_SETCHECK, BST_CHECKED, 0);
//Флажок установлен
CreateCheck := res;
end;
Следующая функция (листинг 2.9) создает переключатель. Если нужно, то он устанавливается. Новый переключатель может начинать новую группу переключателей, для чего нужно параметру group присвоить значение True.
function CreateOption(x, y, width, height, id: Integer;
caption: String; group: Boolean;
checked: Boolean):HWND;
var
res: HWND;
nGroup: Integer;
begin
if (checked) then nGroup := WS_GROUP else nGroup := 0;
res :=
CreateWindow('BUTTON', PAnsiChar(caption), WS_CHILD or
WS_VISIBLE or BS_AUTORADIOBUTTON or nGroup or
WS_TABSTOP, x, y, width, height, hParentWnd,
HMENU(id), hAppInst, nil);
if ((res <> 0) and checked) then
//Переключатель установлен
SendMessage(res, BM_SETCHECK, BST_CHECKED, 0);
CreateOption := res;
end;
Для создания подписанной рамки, группирующей элементы управления, можно воспользоваться функцией CreateFrame, приведенной в листинге 2.10.
function CreateFrame(x, y, width, height, id: Integer;
caption: String):HWND;
begin
CreateFrame:=
CreateWindow('BUTTON', PAnsiChar(caption), WS_CHILD or
WS_VISIBLE or BS_GROUPBOX, x, y, width, height,
hParentWnd, HMENU(id), hAppInst, nil);
end;
Для того чтобы создать раскрывающийся список (ComboBox), можно использовать функцию CreateCombo из листинга 2.11.