Вопрос про трэй

[hoolio_g]

Здравсвуйте. Нашел хороший и вроде бы понятный пример для работы с треем на WinAPI тыц
Только почему-то не сворачивает форму. И еще появляются ошибки в куске
скрин

Вот полный код

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, Menus, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    pshow: TMenuItem;
    pexit: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure pshowClick(Sender: TObject);
    procedure pexitClick(Sender: TObject);
    procedure PopupMenu1Popup(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
   Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;

  public
    procedure MessageFromIcon( var Mess : TMessage ); message WM_USER + 100;
  end;

var
  Form1: TForm1;
  MyIcon : TNotifyIconData;
implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Shell_NotifyIcon( NIM_DELETE, @MyIcon );
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  with MyIcon do
    begin
      cbSize := SizeOf(TNotifyIconData);
      Wnd := Form1.Handle;
      uID := 1;
      uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
      uCallbackMessage := WM_USER + 100;
      hIcon := Application.Icon.Handle;
      szTip := 'Текст подсказки';
    end;
end;

procedure TForm1.MessageFromIcon( var Mess : TMessage );
var
  Mouse: TMouse;
begin
  case Mess.lParam of
  WM_LBUTTONDBLCLK:
    begin
      PShowClick(Form1);
    end;
  WM_RBUTTONUP:
    begin
      PopupMenu.Popup(Mouse.CursorPos.x, Mouse.CursorPos.y);
    end;
  end;
end;

procedure TForm1.pexitClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  SetForegroundWindow(Form1.Handle);
end;

procedure TForm1.pshowClick(Sender: TObject);
begin
  Application.Restore;
  SetForeGroundWindow(Application.MainForm.Handle);
  Shell_NotifyIcon( NIM_DELETE, @MyIcon );
end;

Procedure TForm1.ControlWindow(Var Msg:TMessage);
begin
  if Msg.WParam=SC_MINIMIZE then
    begin
      ShowWindow(Application.Handle,SW_MINIMIZE);
      ShowWindow(Application.Handle,SW_HIDE);
      Shell_NotifyIcon( NIM_ADD, @MyIcon );
    end
    else
    inherited;
end;


end.

[legendary]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure OnMinimizeProc(Sender:TObject);
  private
    procedure ActionIcon(n: Integer; Icon: TIcon);
    { Private declarations }
  public
    { Public declarations }
   protected
  Procedure WindowMessage(Var Msg:TMessage); message WM_SYSCOMMAND;
  Procedure MouseClick(var Msg:TMessage); message WM_USER+1;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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;

procedure TForm1.WindowMessage(var Msg: TMessage);
begin
IF Msg.WParam=SC_MINIMIZE then Begin
ActionIcon (1,Application.Icon); // Добавляем значок в трей
ShowWindow(Handle,SW_HIDE); // Скрываем программу
ShowWindow(Application.Handle,SW_HIDE); // Скрываем кнопку с TaskBar'а
End else inherited;
end;

Procedure TForm1.FormCreate(Sender:TObject);
Begin
Application.onMinimize:=OnMinimizeProc;
End;


Procedure TForm1.OnMinimizeProc(Sender:TObject);
Begin
PostMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);
End;





procedure TForm1.MouseClick(var Msg: TMessage);
Var p:tpoint;
begin
GetCursorPos(p); // Запоминаем координаты курсора мыши(см. P/S)
Case Msg.LParam OF // Проверяем какая кнопка была нажата
WM_LBUTTONUP,WM_LBUTTONDBLCLK: {Действия, выполняемый по одинарному или двойному щелчку левой кнопки мыши на значке}
Begin 
ActionIcon (2,Application.Icon); // Удаляем значок из трея
ShowWindow(Application.Handle,SW_SHOW); // Восстанавливаем кнопку программы
ShowWindow(Handle,SW_SHOW); // Восстанавливаем окно программы
End;
End;
end;

end.

[SERG1980]

А готовым, например CoolTrayIcon, нельзя пользоваться?

[_SERGEYX_]

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

Где логика?
Установи какой-нибудь готовый компонент и не трать время на уже давно написанное.

[hoolio_g]

legendary, опять пишет что слишком много параметров

http://s54.radikal.ru/i146/1101/6d/609a0cb8d88c.jpg

_SERGEYX_ , много говняных повстречал, многие на последних дельфях сбоят.

[GunSmoker]

Во-первых, в Delphi XE есть готовый компонент TTrayIcon.
Во-вторых, можно посмотреть в его исходники.
В-третьих, в Delphi XE строчка

cbSize := SizeOf(TNotifyIconData);

пишется так:

cbSize := TNotifyIconData.SizeOf;

[GunSmoker]

Сообщение от hoolio_g

_SERGEYX_ , много говняных повстречал, многие на последних дельфях сбоят.

Ппц. А штатный или джедаи?

[hoolio_g]

Сообщение от GunSmoker

Во-первых, в Delphi XE есть готовый компонент в Delphi XE строчка

cbSize := SizeOf(TNotifyIconData);

пишется так:

cbSize := TNotifyIconData.SizeOf;

Вот за это действительно спасибо