Excel. Трюки и эффекты, стр. 11
Внимание!
Обратите внимание на параметр 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.
function CreateCombo(x, y, width, height, id: Integer):HWND;
begin
CreateCombo:=
CreateWindow('COMBOBOX', nil, WS_CHILD or WS_VISIBLE or
CBS_DROPDOWN or CBS_AUTOHSCROLL or WS_TABSTOP,
x, y, width, height, hParentWnd,
HMENU(id), hAppInst, nil);
end;
Для создания простого списка (ListBox) вполне подойдет фyнкцияCreateList из листинга 2.12.
function CreateList(x, y, width, height, id: Integer):HWND;
begin
CreateList:=
CreateWindowEx(WS_EX_CLIENTEDGE, 'LISTBOX', nil, WS_CHILD or
WS_VISIBLE or LBS_NOTIFY or WS_BORDER or
WS_TABSTOP, x, y, width, height,
hParentWnd, HMENU(id), hAppInst, nil);
end;
Функция CreateLabel в листинге 2.13 создает статическую надпись (Label), предназначенную только для вывода текста.
function CreateLabel(x, y, width, height, id: Integer;
caption: String):HWND;
begin
CreateLabel:=
CreateWindow('STATIC', PAnsiChar(caption), WS_CHILD or
WS_VISIBLE, x, y, width, height, hParentWnd,
HMENU(id), hAppInst, nil);
end;
Однострочное текстовое поле с привычной рамкой создается функцией CreateEdit (листинг 2.14).
function CreateEdit(x, y, width, height, id: Integer;
strInitText: String):HWND;
begin
CreateEdit:=
CreateWindowEx(WS_EX_CLIENTEDGE, 'EDIT',
PAnsiChar(strInitText), WS_CHILD or
WS_VISIBLE or ES_AUTOHSCROLL or WS_TABSTOP,
x, y, width, height, hParentWnd,
HMENU(id), hAppInst, nil);
end;
Создание многострочного текстового поля (Memo) отличается от создания однострочного поля только указанием дополнительного флага ES_MULTILINE (листинг 2.15).
function CreateMemo(x, y, width, height, id: Integer;
strInitText: String):HWND;
begin
CreateMemo:=
CreateWindowEx(WS_EX_CLIENTEDGE, 'EDIT',
PAnsiChar(strInitText),
WS_CHILD or WS_VISIBLE or ES_AUTOVSCROLL or
ES_MULTILINE or WS_TABSTOP,
x, y, width, height, hParentWnd,
HMENU(id), hAppInst, nil);
end;
Приведенные здесь функции не претендуют на абсолютную универсальность и гибкость. Они введены для того, чтобы упростить создание элементов управления в тех частных случаях, которые приводятся далее в примерах этой главы.
Использование элементов управления
Элементы управления, как и все окна, управляются путем посылки им сообщений. Этим же способом они уведомляют родительские окна о некоторых произошедших событиях (например, выделение элемента в списке, нажатие кнопки и т. д.).
Описание наиболее используемых сообщений для рассматриваемых элементов управления приводится в приложении 3. Мы же рассмотрим, как можно упростить работу с элементами управления в некоторых частных случаях, написав для этого специальные функции.
Итак, в демонстрационном проекте для управления переключателями и флажками предусмотрены следующие функции и процедуры (листинг 2.16).
//Установка/снятие флажка (установка/снятие переключателя)
procedure SetChecked(id: Integer; checked: BOOL);
var state: Integer;
begin
if (checked) then state := BST_CHECKED
else state := BST_UNCHECKED;
SendDlgItemMessage(hParentWnd, id, BM_SETCHECK, state, 0);
end;
//Получение информации о том, установлен ли флажок
//(установлен ли переключатель)
function GetChecked(id: Integer):BOOL;
begin
if (SendDlgItemMessage(hParentWnd, id, BM_GETCHECK, 0, 0) =
BST_CHECKED)
then GetChecked := True
else GetChecked := False;
end;
Функции и процедуры листинга 2.17 предназначены для управления элементом ComboBox.
//Добавление строки в список
procedure AddToCombo(id: Integer; str: String);
begin
SendDlgItemMessage(hParentWnd, id, CB_ADDSTRING, 0,
Integer(PAnsiChar(str)));
end;
//Удаление строки из списка
procedure DeleteFromCombo(id: Integer; index: Integer);
begin
SendDlgItemMessage(hParentWnd, id, CB_DELETESTRING, index, 0);
end;
//Выделение строки с заданным номером
procedure SetComboSel(id: Integer; index: Integer);
begin
SendDlgItemMessage(hParentWnd, id, CB_SETCURSEL, index, 0);
end;
//Получение номера выделенной строки (CB_ERR, если нет выделения)
function GetComboSel(id: Integer): Integer;
begin
GetComboSel := SendDlgItemMessage(hParentWnd, id,
CB_GETCURSEL, 0, 0);
end;
//Получение количества строк
function GetComboCount(id: Integer): Integer;
begin
GetComboCount := SendDlgItemMessage(hParentWnd, id,
CB_GETCOUNT, 0, 0);
end;
//Получение текста строки по ее индексу
function GetComboItemText(id: Integer; index: Integer):String;
var buffer: String;
begin
SetLength(buffer,
SendDlgItemMessage(hParentWnd, id, CB_GETLBTEXTLEN,
index, 0)
);
SendDlgItemMessage(hParentWnd, id, CB_GETLBTEXT, index,
Integer(Addr(buffer)));
GetComboItemText := buffer;
end;