добавить в трей программу

[kta87]

Учусь добавлять программу в трей, без использования компонентов сторонних. в модули прописываю:

Winapi.ShellAPI

Далее необходимо написать процедуру

procedure TForm1.ActionIcon(n:Integer;Icon:TIcon);
Var Nim:TNotifyIconData;
begin
With Nim do // Заполняем структуру Nim….
Begin
cbSize:=SizeOf(Nim); // Размер
Wnd:=Form1.Handle; // Хендл нашего приложения(окна)
uID:=1;
uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
hicon:=Icon.Handle; // Хендл передаваемой в процедуру иконки
uCallbackMessage:=wm_user+1;
szTip:='Сообщение появляющееся при наведении';
End;
Case n OF // Действия выполняемые процедурой
1: Shell_NotifyIcon(Nim_Add,@Nim);
2: Shell_NotifyIcon(Nim_Delete,@Nim);
3: Shell_NotifyIcon(Nim_Modify,@Nim);
end;
end;

Но я не сторонник копипаста, по этому анализирую и сам набираю код, и получаю что дельфе не известно о TForm1.ActionIcon Помогите разобраться! что не так делаю?

[Пепел Феникса]

этот метод был создан вручную.(в том числе и обьвление в классе)

[3D Hunter]

Не показан код событийной процедуры обратного вызова. Информации недостаточно. Посмотри мой исходник, когда-то для себя делал. Благодарность в репу.
TrayApi.rar

По твоей процедуре: с каждым новым вызовом при разных n у тебя этих иконок расплодится. А кто чистить будет? Переменная иконки у тебя локальная ведь. Каждый раз ты работаешь уже с новой созданной копией. Тогда уже глобальной ее сделай. Поэтому и смысл сих строк теряется:

Case n OF // Действия выполняемые процедурой
1: Shell_NotifyIcon(Nim_Add,@Nim);
2: Shell_NotifyIcon(Nim_Delete,@Nim);
3: Shell_NotifyIcon(Nim_Modify,@Nim);
end;

Смотри исходник.

[kta87]

ваш сырец не компилируется (Delphi XE2), строка 63

cbSize := SizeOf(TNotifyIconData);

"Too many actual parameters" (Дословно: Слишком много фактических параметров!)
п.с. если закомментировать, то все компилируется и работает, то так ли работает как вы делали изночально... Прокомментируйте код

cbSize := SizeOf(TNotifyIconData);

[3D Hunter]

Делал еще в Delphi 7. Для новых так:

cbSize := System.SizeOf(TNotifyIconData);

Определяет размер структуры и записывает в ее поле cbSize.

[kta87]

все подправил... отличный пример... спасибо за исходники и + в репу!

[GunSmoker]

я не сторонник копипаста, по этому анализирую и сам набираю код

ваш сырец не компилируется

все подправил... отличный пример... спасибо за исходники

*facepalm*

[GunSmoker]

Для новых так:

cbSize := System.SizeOf(TNotifyIconData);

Неправильно, надо так:

cbSize := TNotifyIconData.SizeOf;

По твоей процедуре: с каждым новым вызовом при разных n у тебя этих иконок расплодится. А кто чистить будет? Переменная иконки у тебя локальная ведь. Каждый раз ты работаешь уже с новой созданной копией. Тогда уже глобальной ее сделай. Поэтому и смысл сих строк теряется:

Код, конечно, не фонтан, но ты не прав. Читай мат-чать. Иконки идентифицируются по ID или GUID (в Vista+), а ID у него фиксирован. Поэтому не имеет значения, где там и как хранится переменная, раз она заполняется заново каждый раз, причём одним и тем же ID.

[kta87]

в представленном исходнике програму можно вытащить из трея кликом лкм по иконке. Можно ли как нить отключить эту возможность?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ShellApi;

const
WM_NOTIFYTRAYICON = WM_USER + 1;
  
type
  TForm1 = class(TForm)
    pm: TPopupMenu;
    Collapse1: TMenuItem;
    Close1: TMenuItem;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Collapse1Click(Sender: TObject);
  private
    procedure WMTRAYICONNOTIFY(var Msg: TMessage); message WM_NOTIFYTRAYICON;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Tray: TNotifyIconData;
  TrayIcon: TIcon;
  AppClose:Boolean=False;

implementation

{$R *.dfm}

procedure CollapseUnwrapToTray;
begin
  Form1.Visible:=not Form1.Visible;
  if Form1.Visible=True then Application.BringToFront;
end;

procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var p:TPoint;
begin
  case Msg.LParam of
    WM_LBUTTONUP:CollapseUnwrapToTray;
    WM_RBUTTONUP:
    begin
      GetCursorPos(p);
      SetForegroundWindow(Form1.Handle);
      pm.Popup(P.X, P.Y);
    end;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  try
  with tray do
  begin
    cbSize := TNotifyIconData.SizeOf;
    Wnd := Form1.Handle;
    uID := 1;
  end;
  Shell_NotifyIcon(NIM_DELETE, Addr(tray));
  finally
  Application.Terminate;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TrayIcon := Application.Icon;
  with tray do
  begin
    cbSize := TNotifyIconData.SizeOf;
    Wnd := Form1.Handle;
    uID := 1;
    uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
    uCallBackMessage := WM_NOTIFYTRAYICON;
    hIcon := TrayIcon.Handle;
    szTip := '3D Hunter';
  end;
  Shell_NotifyIcon(NIM_ADD, Addr(tray));
end;

procedure TForm1.Close1Click(Sender: TObject);
begin
  AppClose:=True;
  Form1.Close;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=AppClose;
  if AppClose=False then CollapseUnwrapToTray;
end;

procedure TForm1.Collapse1Click(Sender: TObject);
begin
  CollapseUnwrapToTray;
end;

end.

[3D Hunter]

procedure TForm1.WMTRAYICONNOTIFY(var Msg: TMessage);
var p:TPoint;
begin
  case Msg.LParam of
    WM_LBUTTONUP:CollapseUnwrapToTray;//обработка щелчка левой кнопки мыши - пиши что тебе надо
    WM_RBUTTONUP:
    begin
      GetCursorPos(p);
      SetForegroundWindow(Form1.Handle);
      pm.Popup(P.X, P.Y);
    end;
  end;
end;