Листинг 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).