Каскадный режим | Линейный режим

jkeks · 09.02.2010 12:19

Вот надо мне тут одну программку сделать так чтобы она была в трее и по таймеру балоны вывозила.
Как без компонентов посадить прогу в трей ?
Вопрос задавался 1000 раз и ответов полно, но в том же DW все написано крайне неясно, хотелось бы по шагам увидеть что и куда прописать и зачем.

Спасибо.

***all__*** · 09.02.2010 17:25

Сейчас набросал небольшой класс, для добавления иконки к проекту, некоторые моменты написаны грубо, но всё работает и недостающие ф-и можно потом добавить.

Функционал:

добавляет иконку в трей
удаляет иконку из трея
Клик LBM скрывает и показывает окно и кнопку в TaskBar`е
Клик RBM показывает TPopupMenu созданый в основной программе

Код:

// модуль класса uSimpleTray.pas

// имя класса TSimpleTray

// добавление иконки в трей

systray:=TSimpleTray.Create(Handle,Application.Handle,PopupMenu1);

// удаление иконки

  systray.Free;

Пример, рабочего приложения прикреплен к посту.

jkeks · 09.02.2010 17:51

попробую завтра

jkeks · 10.02.2010 8:47

Ну добавил я в проект этот pas, надо этот гребаный systray где-то как-то определить ? Где ? как ?
Написал в type: systray: TSystray
Delphi мне ее стирает с руганью

Строка systray:=TSimpleTray.Create(Handle,Application.Handle,PopupMenu1);
systray - не поределен

***all__*** · 10.02.2010 15:22

В прикреплении рабочий проект, проверь там. Скорее всего ты определяешь его где-то локально, и вызываешь из функции, которая не видит этого определения.

jkeks · 10.02.2010 16:00

нет ничего лучше консультации по телефону

***all__*** · 10.02.2010 16:08

А полезней логи сюда, потому что из года в год возвращаемся к одним и тем же вопросам.

jkeks · 11.02.2010 7:09

Да вот просто лень писать статью уже. Так-то кшна надо было хотя бы разговор записать и в подкаст.

18.05.2010 11:07

all__ спасибо тебе большое за твой пример!!
Не получалось отловить события от иконки в своем класс!
Функцию, которую ты использовал очень помогла AllocateHWnd

***all__*** · 18.05.2010 14:18

Рад помочь. ;-)

***all__*** · 18.09.2010 9:23

В процессе работы с компонентом обнаружил несколько проблем, вот решение первой:
Скрыть PopUp при потере фокуса

Вторая проблема связана с тем, что приложение не дает Windows XP отключиться.

Лечится добавлением в класс обработчика события WM_QUIT:

Код:

procedure TSimpleTray.SysTrayIconMsgHandler(var Msg: TMessage);

var pt:TPoint;

begin

  case Msg.lParam of

    WM_MOUSEMOVE:;

    WM_LBUTTONDOWN: begin

        ShellExecute(appHANDLE,'',pchar(ExtractFilePath(Application.ExeName) + 'ScreenSender.exe'),'','',0);

      end;

    WM_LBUTTONUP:;

    WM_LBUTTONDBLCLK:;

    WM_RBUTTONDOWN:;

    WM_RBUTTONUP: begin

      GetCursorPos(pt);

      Popup.Popup(pt.X,pt.Y);

    end;

    WM_QUIT: Free;  // Нужно добавить эту строку!

  end;

end;

Каскадный режим \| Линейный режим Как поместить иконку в трей ? (опять)
Автор	Сообщение