Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.26;
Скачать: CL | DM;

Вниз

Only tray   Найти похожие ветки 

 
TUser ©   (2003-12-14 19:32) [0]

Создаю проект, который на экране будет виден только в качестве иконки в трее. В файле проекта пишу так
program Project1;

uses
Forms, Menus, Classes, Dialogs,
CoolTrayIcon;

{$R *.res}
var
TIcon:TCoolTrayIcon;
PopupMenu1:TPopupMenu;
MenIt:TMenuItem;
ne:TNotifyEvent;

procedure ExitProgram{(Sender:TObject)};
begin
application.Terminate;
end;

begin
Application.Initialize;

@ne:=@ExitProgram;
MenIt:=TMenuItem.Create(application);
MenIt.Caption:="&Exit";
MenIt.OnClick:=ne;

TIcon:=TCoolTrayIcon.Create(Application);
TIcon.Icon.LoadFromFile(MyIcon.ico");
TIcon.IconVisible:=true;

PopupMenu1:=TPopupMenu.Create(Application);
PopupMenu1.Items.Add(MenIt);
TIcon.PopupMenu:=PopupMenu1;

// TIcon.PopupAtCursor;

Application.Run;
while true do
begin end;
end.

Т.е. создаю объект TrayIcon, создаю PopupMenu и присваиваю все как надо. Но не работает. Попап-меню не появляется. Если заставить его появляться при загрузке (эта строчка заремлена), то менюшка с итемом Exit появляться будет, но управление в процедуру ExitProgram не передается.
При этом , если все тоже самое проделать в проекте, где есть форма, то там все нормально:
procedure TForm1.FormCreate(Sender: TObject);
var mi:TMenuItem;
ne:TNotifyEvent;
ti:TCTrayIcon;
begin
@ne:=@ExitProgram;
mi:=TMenuItem.Create(application);
mi.Caption:="&Exit";
mi.OnClick:=ne;

popupmenu1:=TPopupMenu.Create(application);
popupmenu1.Items.Add(mi);
form1.PopupMenu:=PopupMenu1;

ti:=TCTrayIcon.Create(application);
ti.IconVisible:=true;
ti.PopupMenu:=popupmenu1;
end;

В чем тут дело?


 
Юрий Зотов ©   (2003-12-14 21:56) [1]

http://www.delphikingdom.com/helloworld/samples_win.htm#link11



Страницы: 1 вся ветка

Текущий архив: 2003.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-86429
Romeo
2003-12-14 00:36
2003.12.26
Винды не выключаются


1-86425
Sirruf
2003-12-15 12:20
2003.12.26
Изменить цвет скролла в ListBox


3-86311
tchn
2003-12-01 22:54
2003.12.26
Required поля?


7-86582
nester
2003-10-16 22:50
2003.12.26
Как отловить нажатие нестандартной клавиши типа play


1-86415
XHelp
2003-12-14 03:18
2003.12.26
Шифрование streamа