API Windows

← →
evgenij_ (2006-06-05 18:43) [0]

Помогите мастера-начал изучать .... но чёта проблемы (я не удивлен)
создал окно-хочу вставить туда меню

menu_hndl:=CreateMenu();
po.dwTypeData:="ngvvv";
InsertMenuItem(menu_hndl,1,true,po);
SetMenu(Handle,menu_hndl);

Но....смеркало...
Короче где лажа?
Спасибо..

← →
begin...end © (2006-06-05 19:25) [1]

Приведите полный код и опишите, что нужно получить в результате.

← →
evgenij_ (2006-06-06 11:42) [2]

Доброго дня-опять...
Вчера не успел пообщаться

← →
evgenij_ (2006-06-06 12:18) [3]

> begin...end ©

А в результате должно быть окно с меню....
Handle-идентификатор окна
menu_hndl-идентификатор меню

var
MenuHandle: HMENU;
Item: TMenuItemInfo;
begin
MenuHandle := CreateMenu;
with Item do
begin
cbSize := sizeof(Item);
fMask := MIIM_STRING;
dwTypeData := "ABC";
end;
InsertMenuItem(MenuHandle, 0, True, Item);
SetMenu(Handle, MenuHandle);
end

← →
evgenij_ (2006-06-06 13:17) [5]

API Windows Найти похожие ветки