Я еще начинающий. Нашел пример, как свернуть программу в трей. Вставил, все вышло: прога свернулась и иконка в трее есть....
и тут произошло самое смешное: я потерял управление программой...
окно то спряталось, и не закрыть прогу, ни показать окно...)))
Подскажите пожалуйста, как показать окно по клику на иконке в трее,
и как сделать контекстное меню для иконки в трее.
Я уже третий день в поисковике брожу..(
Код:
private
{ Private declarations }
public
{ Public declarations }
//
MouseDownPoint : TPoint;
Moving : bool;
end;
var
Form1: TForm1;
iconData: TNotifyIconData;
implementation
...
...
procedure TForm1.ButtonTrayClick(Sender: TObject);
begin
iconData.cbSize := sizeOf(iconData);
iconData.Wnd := Handle;
iconData.uID := 0;
iconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
iconData.hIcon := Application.Icon.Handle;
iconData.szTip := 'ПИЛОТ-2009';
iconData.uCallbackMessage := WM_MOUSEMOVE;
Shell_NotifyIcon(NIM_ADD, @iconData);
Form1.Hide;
end;
вот это у меня работает)) а дальше...