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

Вниз

сворачеванье в трей   Найти похожие ветки 

 
tim ©   (2005-07-14 09:26) [0]

как в delphi7 cвернуть прогу в трей????????


 
Fay ©   (2005-07-14 09:28) [1]

tim ©   (14.07.05 9:26)
Shell_NotifyIcon


 
xmed ©   (2005-07-14 10:59) [2]

to Fay ©  
А обьяснить с кодом что жалко что ли?
Сколько я сам мучался пока не нашел решение.
На авторство ваабче не претендую:
-----------------------------------------------------------------------
           "Delphi X-Files" <http://www.DlfXFiles.narod.ru/>"
                   "Помещение иконки в Tray-панели"
-----------------------------------------------------------------------

Для решения данной проблемы создано очень много соответствующих
компонентов, которые без единой строчки кода добавляют любую
пиктограмму в системную панель. Но, не мешает знать сам принцип
помещения иконки в Tray-панель.
-----------------------------------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
{
 Добавление иконки
}
var
 No    : TNotifyIconData;
 TrIcon: HIcon;
begin
 TrIcon := ExtractIcon(Handle, "C:\Cursor.ico", 0);
 With No do
  begin
    cbSize := Sizeof(TNotifyIconData);
    Wnd    := Handle;
    uID    := 0;
    UFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
    SzTip  := "Traybar Tip";
    HIcon  := TrIcon;
    uCallBackMessage := WM_USER + 0;
  end;
 Shell_NotifyIcon(Nim_Add, @no);
end;

procedure TForm1.Button2Click(Sender: TObject);
{
 Удаление иконки
}
var
 No: TNotifyIconData;
begin
 With No do
 begin
  cbSize := Sizeof(TNotifyIconData);
  Wnd    := Handle;
  uID    := 0;
 end;
 Shell_NotifyIcon(Nim_Delete, @No);
end;

-----------------------------------------------------------------------

Плус патом можеш добавить чтобы форма сворачивалась процедурку

Form1.Hide;

тока не вызывай её из OnShow или OnCreate патаму как он выдаст ошибку.

Если надо давай мыло я тебе могу кампаненту скинуть


 
uny ©   (2005-07-14 11:01) [3]

вроде нужно окну сообщение послать, wmhide или похожее


 
Ega23 ©   (2005-07-14 11:04) [4]

2 xmed ©   (14.07.05 10:59) [2]

Купи Орфографический Словарь, дитятко...


 
xmed ©   (2005-07-14 11:05) [5]

to Ega23 ©  

угу какой умный!!!
а по теме что написать нечего?

to uny ©  

надо в процедуре
procedure TForm1.Button1Click(Sender: TObject);
добавить
Form1.Hide;


 
Fay ©   (2005-07-14 11:10) [6]

2 xmed ©   (14.07.05 10:59) [2]
>> А обьяснить с кодом что жалко что ли?
А что объяснять? Мне вот не очевидно, что у автора возникнут проблемы с реализацией.


 
Ega23 ©   (2005-07-14 11:13) [7]

угу какой умный!!!
а по теме что написать нечего?


Ага. Самый умный. Я этого не отрицаю. Более того, всячески поощеряю восхваления в свой адрес.

А по теме - Fay ©  в [1] всё сказал, дополнить - нечего.



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

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

Наверх




Память: 0.48 MB
Время: 0.025 c
14-1121076095
WondeRu
2005-07-11 14:01
2005.07.31
Вакансия: Программист (С++) как творец безопасности.


14-1120815109
GRAND25
2005-07-08 13:31
2005.07.31
По просьбе Игорька...


1-1120999072
B-S-G
2005-07-10 16:37
2005.07.31
Изменить исполняемый файл


4-1117561700
seamcat
2005-05-31 21:48
2005.07.31
ExitProcess


1-1120997275
xroot
2005-07-10 16:07
2005.07.31
Абсолютные координаты компонента