Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Системный трей [D7, XP]

Страницы: < 1 2 3 4 >
DimOk © (2007-08-29 09:39:00)
Добрый день всем. Подскажите пожалусто как программу свернуть в системный трей.
Заранее всем благодарен.

DVM (2007-08-29 16:22:00) [21]
Системный трей - это все окно панели задач. Поэтому, чтобы свернуть окно в "трей" очевидно достаточно нажать кнопку минимизации окна.

То место где часики - это область уведомлений трея, но никак не сам трей.

@!!ex (2007-08-29 16:01:00) [22]
> [47] DimOk © (29.08.07 14:55)

ShowWindow(Application.Handle, SW_HIDE);

DimOk (2007-08-29 14:55:00) [23]
Можно еще вопрос не совсем в тему. Как зделать так что бы пр сворачивании форма скрывалась и не отображалась на панели?

DimOk (2007-08-29 14:49:00) [24]

> Хэндл формы присвоить не забыл?

Unit2.Handle := Form1.Handle;

@!!ex (2007-08-29 13:36:00) [25]
> Иконка рисуется, но событий ни каких нет.....

Хэндл формы присвоить не забыл?

DimOk (2007-08-29 12:55:00) [26]

> Ну еще из-за этого беспокоить администратора, с этим мы
> и сами справимся.

Дерзайте, удачи :))

Anatoly Podgoretsky (2007-08-29 12:52:00) [27]

> Кроме того попросите админа что бы добавил баннер (основной)
> - "ПО ВОПРОСАМ СВЯЗАННЫХ С СИСТЕМНЫМ ТРЕЙЕМ НЕ ВХОДИТЬ.
> УБЪЕТ!" или что то другое..... :))

Ну еще из-за этого беспокоить администратора, с этим мы и сами справимся.

DimOk (2007-08-29 12:18:00) [28]

> procedure WMICON(var msg:TMessage);
> message WM_User;

Иконка рисуется, но событий ни каких нет.....

DimOk (2007-08-29 11:34:00) [29]

> Причем здесь ветка "Начинающим"?
> Смотри.
> http://www.google.ru/search?hl=ru&newwindow=1&q=%D1%81%D0%BA%D1%80%D1%8B%D1%82%D1%8C+%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D1%83+%D0%B2+%D1%82%D1%80%D0%B5%D0%B9+delphi&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=

Может быть я так и делал, и нашел я www.delphimaster.ru. Кроме того попросите админа что бы добавил баннер (основной) - "ПО ВОПРОСАМ СВЯЗАННЫХ С СИСТЕМНЫМ ТРЕЙЕМ НЕ ВХОДИТЬ. УБЪЕТ!" или что то другое..... :))

DimOk (2007-08-29 11:30:00) [30]

> nid.hIcon := LoadIcon(HInstance,MakeIntResource(I));;

> nid.hIcon := LoadIcon(HInstance,PChar(I));;

Все понял, извеняюсь просмотрел

@!!ex (2007-08-29 11:20:00) [31]
i - идентефиактор иконки
N - Строка, которая выводить при наведении мыши на иконку.
С практической стоорны разница в том, что в одном случае иконка выбираеться по номеру, во втором - по названию.

@!!ex (2007-08-29 11:18:00) [32]
> [37] DimOk © (29.08.07 11:16)

А получше посмотреть?

DimOk (2007-08-29 11:16:00) [33]

> В коде? :))

Может быть дурацкий вопрос, но не вижу..... :)

DimOk (2007-08-29 11:12:00) [34]

> У него нет Д2006

Да у меня D7 и Windows хрюша.

@!!ex (2007-08-29 11:12:00) [35]
> В чем разница...?

В коде? :))

DimOk (2007-08-29 11:11:00) [36]

> procedure TrayModify(I:integer;const N:string);
> begin
> nid.hIcon := LoadIcon(HInstance,MakeIntResource(I));;
> strcopy (nid.szTip, PChar(N));
> nid.uFlags := 6;
> if Shell_NotifyIcon(1, @nid) then
> TrayCreate(i,N);
> end;
>
> procedure TrayCreate(const i,N:string);
> begin
> nid.cbSize := sizeof (nid);
> nid.wnd := Handle;
> nid.uID := 1; // icon ID
> nid.uCallBAckMessage := WM_IconMessage;
> nid.hIcon := LoadIcon(HInstance,PChar(I));
> strcopy (nid.szTip, PChar(N));
> nid.uFlags := 7;
> Shell_NotifyIcon (0, @nid);
> end;
>
> procedure TrayModify(const i,N:string);
> begin
> nid.hIcon := LoadIcon(HInstance,PChar(I));;
> strcopy (nid.szTip, PChar(N));
> nid.uFlags := 6;
> if Shell_NotifyIcon(1, @nid) then
> TrayCreate(i,N);
> end;

В чем разница...?

Anatoly Podgoretsky (2007-08-29 11:09:00) [37]

> Видимо у него форма есть :)

У него нет Д2006

Gydvin (2007-08-29 11:09:00) [38]
Причем здесь ветка "Начинающим"?
Смотри.
http://www.google.ru/search?hl=ru&newwindow=1&q=%D1%81%D0%BA%D1%80%D1%8B%D1%82%D1%8C+%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D1%83+%D0%B2+%D1%82%D1%80%D0%B5%D0%B9+delphi&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA&lr=

DimOk (2007-08-29 11:05:00) [39]

> Гугл рулит. Только на этом форуме, пока я тут нахожусь (2
> или 3 года) этот вопрос задают как минимум раз в две недели.
> А по всем тырнету...
> Все дело в ДНК.

Просто кто не заметил эта ветка форума называется "Начинающим" :)

> Не обращай внимания

Да я просто интересуюсь, может быть этот вопрос даже к этой категории не относится :)

Gydvin (2007-08-29 11:02:00) [40]

> А пояснить можно......?

Гугл рулит. Только на этом форуме, пока я тут нахожусь (2 или 3 года) этот вопрос задают как минимум раз в две недели. А по всем тырнету...
Все дело в ДНК.

Страницы: < 1 2 3 4 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »