Текущий архив: 2003.09.15;
Скачать: CL | DM;
Вниз
Операции с треем Найти похожие ветки
← →
alexus © (2003-07-15 11:16) [0]Привет уважаемые.
не могли бы подсказать на примере как мне, допустим по щелчку на кнопке скинуть приложение в трей, а затем щелчком на зачке в трее вызвать меню, с некоторыми опциями (например: "exit", "open", "help").
Заранее благодарен
← →
Prov © (2003-07-15 12:22) [1]uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var nid: TNotifyIconData;
begin
ShowWindow(Handle, SW_HIDE);
SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
with nid do
begin
nid.cbSize:= SizeOf(nid);
nid.Wnd:= Handle;
nid.uID:= 13321; //Любой идентификатор там себе придумай
nid.uFlags:= nif_icon or nif_message or nif_tip;
nid.hIcon:= LoadIcon(hInstance, MAKEINTRESOURCE("MAINICON"));
( nim_add, @nid) uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var nid: TNotifyIconData;
begin
ShowWindow(Handle, SW_HIDE);
SendMessage(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
with nid do
begin
nid.cbSize:= SizeOf(nid);
nid.Wnd:= Handle;
nid.uID:= 13321; //Любой идентификатор там себе придумай
nid.uFlags:= nif_icon or nif_message or nif_tip;
nid.hIcon:= LoadIcon(hInstance, MAKEINTRESOURCE("MAINICON"));
nid.szTip:= "Всплывающая подсказка в трее !!!";
end;
Shell_NotifyIcon(nim_add, @nid);
end;
← →
alexus © (2003-07-16 11:14) [2]2 Prov
Благодарствуйте, заработало оно.
А вот как мне отловить клик на иконке в трее?
Страницы: 1 вся ветка
Текущий архив: 2003.09.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
