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

Chyslyvchyk

Дата 30.7.2004, 14:42 (ссылка)

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

Загрузка ...

Опытный

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

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

Нужно добавить значек проги в tray. Используется компонент RxTrayIcon из RxLibrary.

Написана процедурка:

Код

procedure TMainForm.OnMinimizeProc(Sender:TObject);
begin
RxTrayIcon1.Active:=True;
MainForm.Hide;
end;

Процедурка удаления иконки из tray.

Код

procedure TMainForm.RxTrayIcon1DblClick(Sender: TObject);
begin
MainForm.Show;
RxTrayIcon1.Active:=False;
end;

А куда нужно "повесить вот это"??

Код

Application.onMinimize:=OnMinimizeProc;

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

Простота - сестра таланта!

<Spawn>

Дата 30.7.2004, 14:58 (ссылка)

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

Загрузка ...

Око кары:)

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

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

например сюда:

Код

procedure TMainForm.MainFormCreate(Senfer: TObject);
begin
  Application.onMinimize:=OnMinimizeProc;
end;

или сюда:

Код

initialization
  Application.OnMinimize := MainForm.OnMinimizeProc;

Это сообщение отредактировал(а) <Spawn> - 30.7.2004, 15:03

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Chyslyvchyk

Дата 30.7.2004, 18:30 (ссылка)

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

Загрузка ...

Опытный

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

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

Код

procedure TMainForm.MainFormCreate(Senfer: TObject);
begin
 Application.onMinimize:=OnMinimizeProc;
end;

Сюда и прописывалось, но проблема в том, что при загрузке проги сразу же загружался значек. Такую проблему уже тут обсуждали, но к решению так и не пришли....

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

Простота - сестра таланта!

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