VPF::Как свернут окно в .....? - Форум программистов

Spawn

Дата 4.6.2002, 17:58 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

1)У меня возник вопрос: как свернуть программу не при помощи Minimaze, а в ту часть(не помню как называется) где находятся данные о времени, смена раскладки клавы и т. п.
:notify

2)Подскажите плз какую кодировку имеют клавиши от F1 до F12. Заранее спасибо

Vit

Дата 4.6.2002, 18:02 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Давайте делать на каждый вопрос отдельный топик.

1) Наиболее простое решение использовать компоент TrayIcon из RxLib
2) Коды клавиш - это определенные в Дельфи константы: vk_F1 и vk_F12 (реальное значение констант можно найти поискав константы в модуле Windows.pas)

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Song

Дата 4.6.2002, 18:15 (ссылка)

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

Загрузка ...

Sysman.ru

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

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

Доступный вариант "свёртывания программы в трей" для людей, владеющих Дельфи на любом уровне.

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

Прежде чем сказать "Невозможно", подумай, прав ли ты

Vit

Дата 4.6.2002, 19:22 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Взято с сообщения Song на другом форуме:
http://pascal.sources.ru/cgi-bin....0241631

Нет такого понятия "свернуть в трей". Есть возможность только добавлять, удалять и менять значок в области трея. Сама же программа просто прячется.
Для изменения значка в трее используется класс TShellNotifyIcon модуля ShellApi
Объявим следующую процедруру:
Параметры к ней такие: n - номер операции ( 1 - добавить, 2 - удалить, 3 - заменить) и Icon - сама иконка с которой будет делаться эта операция

Код
Procedure TForm1.Ic(n:Integer;Icon:TIcon); Var Nim:TNotifyIconData; begin With Nim do   Begin    cbSize:=SizeOf(Nim);    Wnd:=Form1.Handle;    uID:=1;    uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;    hicon:=Icon.Handle;    uCallbackMessage:=wm_user+1;    szTip:='Хинт, который будет появляться у значка';   End; Case n OF   1: Shell_NotifyIcon(Nim_Add,@Nim);   2: Shell_NotifyIcon(Nim_Delete,@Nim);   3: Shell_NotifyIcon(Nim_Modify,@Nim); End; end;

Теперь, нам нужно отловить минимизацию приложения, для того, чтобы заменить стандартное действие Windows на "свёртывание в трей". Объявляем в секции protected процедуру
Код
protected Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND; ... Procedure TForm1.ControlWindow(Var Msg:TMessage); Begin IF Msg.WParam=SC_MINIMIZE then   Begin    Ic(1,Application.Icon); // Добавляем значок в трей    ShowWindow(Handle,SW_HIDE); // Скрываем программу End else inherited; End;

Теперь нам нужно, чтобы значок в трее мог реагировать на манипуляции с ним. Если Вы внимательно посмотрите процедру Ic(), то Вы увидите там ссылку на сообщение WM_USER+1. Это не что иное, как сообщение, которое приходит нам от этого значка. Обычно для значка в трее делают всплывающее меню и выводят там те или иные действия. Но TPopUpMenu делается обычно для правой кнопки, по левой же просто активируют приложение. На форму кидаем комопонент TPopUpMenu (пусть это будет PopUpMenu1) и заносим в него все пункты меню, которые мы хотим, чтобы онм появилис в меню, которое будет всплывать по нажатию правой кнопки на значке.
После этого описываем обработчик: В вышеназванную секцию protected добавляем ещё одну процедуру IconMouse, которая будет реагировать на сообщение WM_USER+1
Код
protected Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND; Pocedure IconMouse(var Msg : TMessage); message WM_USER+1; Теперь описываем собственно процедуру. procedure TForm1.IconMouse(var Msg:TMessage); Var p:tpoint; begin GetCursorPos(p); // Запоминаем координаты курсора мыши Case Msg.LParam OF // Проверяем какая кнопка была нажата   WM_LBUTTONUP,WM_LBUTTONDBLCLK: {Действия, выполняемый по одинарному или двойному щелчку левой кнопки мыши на значке. В нашем случае это просто активация приложения} Begin    Ic(3,Applicattion.Icon); // Удаляем значок из трея    ShowWindow(Application.Handle,SW_SHOWNORMAL); // Восстанавливаем окно программы    End;   WM_RBUTTONUP: {Действия, выполняемый по одинарному щелчку правой кнопки мыши}    Begin    SetForegroundWindow(Handle); // Восстанавливаем программу в качестве переднего окна    PopupMenu1.Popup(p.X,p.Y); // Заставляем всплыть тот самый TPopUp о котором я говорил чуть раньше    PostMessage(Handle,WM_NULL,0,0) // Обнуляем сообщение    end; End; end;

Для выполнения пунктов всплывающего меню, пишите стандартные обработчики onClick() для его пунктов.

Данный опус писался только в форме, в IDE не тестировался . Всё работает конечно, но не обессудьте, если будут ошибочки мелкие.

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

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