| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

API Windows

evgenij_ ©   (2006-06-05 18:43:00) 

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

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

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

---

evgenij_   (2006-06-06 13:17:00) [1]

> begin...end ©

Спасибо

---

begin...end   (2006-06-06 13:02:00) [2]

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 12:18:00) [3]

> begin...end ©

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

---

evgenij_   (2006-06-06 11:42:00) [4]

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

---

begin...end   (2006-06-05 19:25:00) [5]

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

---

Наверх