VPF::Свой пункт в системном меню! - Форум программистов

Marsianin

Дата 29.5.2007, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 48
Регистрация: 24.11.2004

Репутация: нет
Всего: нет

Только не нужно сразу посылать и бить сапогами по лицу!
Я знаю как добавить этот пункт в системное меню формы, но под Delphi 2007 это НЕ работает, как ни старался:

Код


procedure OnFormCreate(...);
var Sysm:HMenu;
begin
  Sysm:=GetSystemMenu(Handle,False);
  AppendMenu(Sysm,MF_SEPARATOR,0,'');
  AppendMenu(Sysm,MF_STRING,1025,'About'));
end;

Rouse_

Дата 30.5.2007, 08:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 18
Всего: 29

Ну так проверь что возвращается в Sysm и какой результат возвращают AppendMenu.
ЗЫ: когда в mars notepad перетаскивание узлов наконец то появиться? ;)

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Marsianin

Дата 30.5.2007, 23:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 48
Регистрация: 24.11.2004

Репутация: нет
Всего: нет

Проверил.

GetSystemMenu выдаёт что-то отличное от 0 и каждый раз разное, явно Handle.
AppendMenu выдают True, т.е. без ошибки.
GetLastError выдаёт 0.

Хз в чём дело.

P.S. Mars Notebook...к версии 1.5 планирую перетаскивание (не пойму, зачем оно так всем нужно)

Это сообщение отредактировал(а) Marsianin - 31.5.2007, 06:33

Rouse_

Дата 31.5.2007, 09:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 18
Всего: 29

Тогда проверь (до нас еще 2007-ая не дошла, мне не на чем) не происходит ли вызов метода TWinControl.RecreateWnd после AppendMenu

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Marsianin

Дата 31.5.2007, 23:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 48
Регистрация: 24.11.2004

Репутация: нет
Всего: нет

Разобрался. Прикол. Причём хз что с ним делать.
Если стоит MainForm.BorderStyle:=bsSizeable;, то пункта в меню в системном не показывает, а если устанавливаешь MarsInstForm.BorderStyle:=bsSingle; - то всё путём.
Думаю надо меню после того, как это меняешь добавлять...иду пробовать smile

Добавлено через 4 минуты и 58 секунд
Помогло smile

Видать когда меняешь тип своего окна и Handle меняется. Зачем - хз, но факт.

Rouse_

Дата 1.6.2007, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 18
Всего: 29

Цитата(Marsianin @ 1.6.2007, 00:13

)

Видать когда меняешь тип своего окна и Handle меняется

Вот именно при смене типа и производится RecreateWnd и все, что ты нахимичил с окном ранее, теряется smile

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »