VPF::Связать системное меню приложения с определенным

Etar

Дата 2.4.2009, 08:09 (ссылка)

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

Загрузка ...

Шустрый

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

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

Привет, подскажите пожалуйста,
как можно сделать так, чтобы контекстное меню кнопки приложения на taksbar'е имело функциональность того окна, которое я хочу?

Т.е. например - если я назначу окно типа Dialog с одной лишь кнопкой закрытия, то контекстное меню приложения должно содержать только пункт "Закрыть".

Спасибо.

Etar

Дата 2.4.2009, 09:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

еще один вопрос в догонку - как кнопку приложения на панели задач вручную сделать нажатой??

Alix

Дата 2.4.2009, 13:25 (ссылка)

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

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

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

Цитата(Etar @ 2.4.2009, 09:17

)

еще один вопрос в догонку - как кнопку приложения на панели задач вручную сделать нажатой??

Активировать приложение. SetForegroundWindow.

Цитата(Etar @ 2.4.2009, 08:09

)

Т.е. например - если я назначу окно типа Dialog с одной лишь кнопкой закрытия, то контекстное меню приложения должно содержать только пункт "Закрыть".

Код

var
  hMenuHandle: HMENU;
begin
  hMenuHandle := GetSystemMenu(Application.Handle, false);
  if hMenuHandle <> 0 then
  begin
    DeleteMenu(hMenuHandle, SC_MINIMIZE, MF_BYCOMMAND);
    DeleteMenu(hMenuHandle, SC_RESTORE,  MF_BYCOMMAND);
    DeleteMenu(hMenuHandle, SC_MAXIMIZE, MF_BYCOMMAND);
  end;
end;

Учти, что между меню окна и меню приложения есть разница. В этом примере удаляются все пункты из меню, появляющегося, если щелкнуть по кнопке в таскбаре. Чтобы убрать пункты при щелчке на иконку окна (или нажатия alt+space), надо заменить там Application.Handle на Form1.Handle.

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

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

Etar

Дата 3.4.2009, 07:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо, то что надо!

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