Спрятать в трей, Спрятать в трей Опции

[WishMaster]

Здравствуйте всем,перейду к сути вопроса.В C++Builder есть компанент который прячет прграмму в трей (с течение времени меняет её иконку и т.д. вобшем красота), мне хотелось бы узнать можно ли в Delphi 5 тоже сотворить что-то подобное.Заранее спасибо

[volvo]

Все равно все работает не так как мне бы хотелось.

Ну, ты же придумываешь новые правила в ходе игры, что ж ты хочешь?

1. В каждой форме приходиться встовлять этот код и каждая оддельная форма сворачиваеься в оодельную иконку в треии.

А ты что хотел? Чтобы по клику в трее сразу всплывали ВСЕ формы, туда минимизированные? Или только четвертая? А почему не вторая? То, что КАЖДАЯ форма имеет иконку в трее - самый логичный вариант...

Чтоб не писать этот код для КАЖДОЙ формы, можешь создать класс TTrayedForm, например, унаследовав его от TForm, в нем реализовать все эти методы, а свои формы создавать уже:

Type
  TForm1 = Class(TTrayedForm)
  ...
  End;

2. Не получаеться чтобы программа при запуске сразу была свернута в трей(тоесть для того чтобы она свернулась приходиться нажимать кнопку свертывания формы)

А пробовал?

Я вот попробовал, и, знаешь, получилось...

{ Эту процедуру не забудь добавить в класс формы }
procedure TForm1.OnMinimizeProc(Sender: TObject);
begin
  PostMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.onMinimize:=OnMinimizeProc;
  Application.Minimize; { <--- Вот этого не хватало }
end;

3. В панели около "пуск" программа не исчезает (она сворачиваеться в трей и продолжает висеть в в панели около кнопки пуск)

Да ты что???

procedure TForm1.ControlWindow(var Msg: TMessage);
begin
  if Msg.WParam = SC_MINIMIZE then begin
    Ic(1, Application.Icon);
    ShowWindow(Handle, SW_HIDE);
    ShowWindow(Application.Handle, SW_HIDE); { <--- Добавлять не пробовал? }
  end
  else inherited;
end;

4. А есть какойнибуть более лекгий код свертывания в трей или нету.

Если делать все ручками - нету, а по бездумному бросанию компонентов на форму, извини, я не специалист...

Итог: Чтобы программы работали, как ТЫ хочешь - надо ТЕБЕ самому их и писать, не так ли?