Форум: "Начинающим";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Вниз

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-идентификатор меню

---

← →
begin...end ©   (2006-06-06 13:02) [4]

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]

> begin...end ©

Спасибо

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.06.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.01 c