Не успел исправить, время истекло, поэтому дабл-пост.
miha, могу скинуть одну маленькую прогу с треем или вот часть кода, компонент tTrayIcon:
//Сворачивание в трей
Procedure TForm1.WinManager(Sender:
TObject);
begin
ShowWindow(Handle,SW_HIDE);
form1.Visible:=false;
n2.Caption:="Развернуть";
end;
//Востановление по даблклику
procedure TForm1.TrayIcon1DblClick
(Sender: TObject);
begin
if n2.Caption="Свернуть" then begin
WinManager(Form1);
end else begin
n2.Caption:="Свернуть";
ShowWindow(Handle,SW_Shownormal);
Form1.Visible:=True;
Application.Restore;
application.BringToFront;
end;
end;
Ну а для того что бы меню по правому нажатию клавиши было - юзай компонент tPopupMenu, и укажи его в tTrayIcon (например вручную можно: "TrayIcon1.PopupMenu:=PopupMenu1;")
Ссылка на пост
14 июн 2010 в 17:20