Свертывание в трей

[AlphA]

Здравствуйте, уважаемые программисты. Я только начинаю программировать. Я работаю на Delphi 5. Пишу программу для отслеживания событий, но для начала надо, чтобы она свертывалась в трей. Подкажите, пожалуйста, как это сделать.

[mihali4]

Самое простое - воспользоваться поиском по форуму с ключевым словом "трей" или "tray".
Тема неоднократно рассматривалась и уже навязла в зубах.
2 Дмитрий и др.
Прекратите давать ссылки на чужие форумы - у нас гораздо больше информации. Кроме того, модеры терпят, терпят, а потом накажут. Вам это надо?

[FaTaL]

Я пользуюсь RXTrayIcon очень удобно. Это доп. компонента, могу кинуть.

[Небесный]

FaTaL, а ты можешь более подробно рассказать.

[FaTaL]

Сообщение от Небесный

FaTaL, а ты можешь более подробно рассказать.

Ну а что тут подробнее рассказывать то? Эти доп. компоненты поставляются бесплатно. Сделаны они для облегчения труда программиста, чтобы меньше писать ручками. Просто кидаешь на форму компонент например RxTrayIcon и проблема с иконкой в трее решена. ничего сложного. Ну короче забирайте и смотрите. Инструкция по установке компонентов конечно там на инглише, ну какой ты тогда прогер если не знаешь инглиша Если будут затруднения пишите постораюсь помоч.
Короче файло в 2 метра форум не грузит, тогда качайте по ссылке http://slil.ru/25084115

[SERG1980]

Начиная с D2005 компонент TrayIcon находится в закладке Adititional

при запуске проги
procedure TMainForm.FormActivate(Sender: TObject);
begin
ShowWindow(Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_HI DE);//скрываем приложение
trayIcon1.Visible:=true;//
end;

в обработчике события OnClick TraiIcon можно записать:
ShowWindow(Handle,SW_NORMAL);// приложение видимое
TrayIcon1.Visible:=false;

при минимизации формы можно ткже сделать чтобы прога свернулась для этого:

в разделе Private пишем
procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
потом

{$R *.dfm}

Procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if msg.CmdType=SC_MINIMIZE then
begin
ShowWindow(Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_HI DE);
TrayIcon1.Visible:=true;
end else inherited;
end;

[Квэнди]

Не лучший метод использовать RxTrayIcon очень расточительно к ресурсам и размерам скомпилированного файла

[FaTaL]

Сообщение от Квэнди

Не лучший метод использовать RxTrayIcon очень расточительно к ресурсам и размерам скомпилированного файла

А пакеры и протекторы Вам на что???

[Квэнди]

И человек, задавший вопрос "...Я только начинаю программировать. Я работаю на Delphi 5. Пишу программу для отслеживания событий, но для начала надо, чтобы она свертывалась в трей..." Тут же вас понял и бросился делать...

[FaTaL]

Сообщение от Квэнди

И человек, задавший вопрос "...Я только начинаю программировать. Я работаю на Delphi 5. Пишу программу для отслеживания событий, но для начала надо, чтобы она свертывалась в трей..." Тут же вас понял и бросился делать...

Я понимаю что Вы здесь модератор, а я совсем новичёк. Я и вправду конечно "ламер" в дельфине, сам учусь. Но то что я здесь ответил, сам уже прекрасно испробывал. Так что если у Вас нет ко мне претензий и вопросов, то просто не надо перечить. Он такой же как и я. Сам обратиться если что непонятно.