Трей и меню

[Патрон]

Помогите пожалуйста. Как сделать чтобы по нижатии кнопки "Закрыть", программа свертывалась в трей, и чтобы с трея по нажатии правой кнопки мыши всплывало меню?
____________________

Только можете объяснить поотдельности?
т.е. свертывание программы, и вызов ее меню. )

[JTG]

Да и без гугла на форуме про трей уже много раз темы подымали.
Обработчик на событие onClose

[Квэнди]

1. В любом случае вам необходимо обрабатывать событие onCloseQuery
присваивая передающемуся ему флагу CanClose значение false в случае если эта функция не вызвана из меню трея (если конечно необходимо сохранить возможность корректного завершения программы)
после присвоения флагу соответствующего значения вы уже можете смело сворачивать программу в трей. Как же сделать последнее много кратно и подробно рассматривалось на нашем форуме, в чем вы можете убедиться, воспользовавшись поиском.

[vitalik007]

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics,ExtCtrls, Spin, Buttons,
StdCtrls, Mask, Controls, Forms, Dialogs,shellapi, Menus;


type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure WinManager(Sender: TObject);
    procedure Gototray;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure myWin(var message:Tmessage);message WM_USER+1;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nf:TnotifyIcondata;
implementation

uses Unit2;

{$R *.dfm}


procedure Tform1.myWin(var message:Tmessage);
var
pt:Tpoint;
begin
case message.LParam of
WM_RBUTTONUP: begin
setForegroundwindow(handle);
getcursorpos(pt);
popupmenu1.Popup(pt.X,pt.Y);
end;
wm_LButtonDblClk:begin
showwindow(handle,SW_SHOW);
n1.Caption:='Свернуть';
end;
end;
end;

procedure tform1.WinManager(Sender: TObject);
begin
showwindow(application.handle,SW_HIDE);
n1.Caption:='Открыть';
end;

procedure TForm1.gototray;
begin
with nf do
begin
cbSize:=SizeOf(TNotifyIconData);
Wnd:=Handle;
uID:=13;
uFlags:=NIF_MESSAGE + NIF_ICON + NIF_TIP;
szTip:='Ozi Clocker v1.0';
hIcon:=Application.Icon.Handle;
uCallBackMessage:=WM_USER + 1;
end;
shell_notifyIcon( Nim_ADD,@nf);
end;

procedure TForm1.N2Click(Sender: TObject);
begin
application.Terminate;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMinimize:=Winmanager;
gototray;
end;


procedure TForm1.N1Click(Sender: TObject);
begin
if n1.Caption='Открыть' then
begin
  n1.Caption:='Свернуть';
  ShowWindow(handle,SW_SHOW);
end else if n1.caption='Свернуть' then
begin
  n1.Caption:='Открыть';
  ShowWindow(handle,SW_HIDE);
end;
end;
end.

вот пример для тебя написал

[FaTaL]

Советую использовать RXLib. Там как раз то что Вы спросили делается очень просто и без какого либо большого кода.

[Патрон]

vitalik007, спасибо за код.
Но почти на каждой строке вылезает ошибка.
Может есть другой способ?

[mutabor]

Другой способ уже назвали - использовать компонент.
Насчет способа с WinAPI, не нужно быть таким ленивым, эта задача тривиальная, возникает рано или поздно практически у каждого программиста, поэтому информации полно как на этом форуме так и статей в сети.
Фразы для поиска:
Сворачивание в трей
Сворачивание в трей WinAPI
Сворачивание в трей Delphi

[SunKnight]

Trey.doc
Вот статья (не мной написанная, а с инета слита), надеюсь поможет.

[Патрон]

Всем большое спасибо

[Патрон]

SunKnight, спасибо за статью, очень умная, много нового для себя извлек.