| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

проблема при свертывании в трей [D6, WinXP]

Zhenya_g ©   (2002-12-22 15:02:00) 

При попытке свернуть окно в трей появляется ошибка
[Error] Unit1.pas(22): Undeclared identifier: "TNotifyIconData"


текст программы

unit Unit2;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Procedure Ic(n:Integer;Icon:TIcon);
private
{ Private declarations }
public
{ Public declarations }
protected
Procedure ControlWindow(Var Msg:TMessage); message WM_SYSCOMMAND;


end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Procedure TForm1.Ic(n:Integer;Icon:TIcon);
Var nim:TnotifyIcondate; {!!!!!!!!!! выдается сообщение о ошибке, что делать??? }
begin
With Nim do
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.ControlWindow(Var Msg:TMessage);
Begin
IF Msg.WParam=SC_MINIMIZE then
Begin
Ic(1,Application.Icon);
ShowWindow(Handle,SW_HIDE);
ShowWindow(Application.Handle,SW_HIDE);
End else inherited;
End;

end.

---

Rouse_   (2002-12-22 15:16:00) [1]

uses ...ShellAPI;

nim: TNotifyIconData;

Желаю успехов

---

Song   (2002-12-22 15:10:00) [2]

TNotifyIconDat a

---

Наверх