Самоучитель по Delphi 7 для профессионалов



             

Размещение значка приложения на System Tray - часть 4


if not ShownOnce then begin

for I := 0 to Application.MainForm.ComponentCount -1 do if Application.MainForm.Components[I] is TWinControl then with Application.MainForm.Components[I] as TWinControl do if Visible then

 begin

ShowWindow(Handle, SW_SHOWDEFAULT); 

for J := 0 to ComponentCount -1 do if Components[J] is TWinControl then

ShowWindow((Components[J] as TWinControl).Handle, SW_SHOWDEFAULT);

end;

ShownOnce := True; 

end;

 end;

procedure TForml.WMSYSCOMMAND(var msg: TMessage);

 begin inherited;

if (Msg.wParam=SC_MINIMIZE) then 

begin

HideMainForm; CreateTraylcon(l) ;

 end;

 end;

procedure TForml.FileOpenltemlClick(Sender: TObject); begin

RestoreMainForm;

DeleteTraylcon(l);

end;

Теперь у вас в руках полноценный набор средств для работы с панелью System Tray. В заключение необходимо добавить, что все описанное реализуется не в операционной системе, а в оболочке ОС — Проводнике (Explorer). В принципе, и Windows NT 4/2000, и Windows 95/98 допускают замену оболочки ОС на другие, например DashBoard или LightStep. Там функции панели System Tray могут быть не реализованы или реализованы через другие API. Впрочем, случаи замены оболочки достаточно редки.

 




Содержание  Назад  Вперед