Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

System Tray & Сворачивание Разворачивание Программы. [D7, WinXP]

Зигмунд © (2005-02-14 12:49:00)
Как сделать так чтобы при клике на значке программы в system tray она разворачивалась, если свернута и сворачивалось если развернута. Как сворачивать?

Зигмунд (2005-02-15 15:03:00) [1]
Спасибо.

grom (2005-02-15 12:35:00) [2]
...
private
procedure Ico(var M:TMessage); message WM_USER+456;
...
procedure UpdateTaskBar;
var NotifyData: TNotifyIconData;
begin
With NotifyData do
begin
cbSize := SizeOf(TNotifyIconData);
Wnd := Form1.Handle;
uID := 1;
uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
uCallbackMessage := WM_USER+456;
hIcon := Application.Icon.Handle;
szTip := 'Îòïðàâêà!';
end;
Shell_NotifyIcon(NIM_ADD, @NotifyData);
end;

procedure TForm1.Ico(var M:TMessage);
begin
if M.WParam = 1 then
case M.LParam of
WM_RBUTTONUP : Visible:= not Visible;
WM_LBUTTONUP : Visible:= not Visible;
WM_MBUTTONUP : Visible:= not Visible;
end;
end;

Зигмунд (2005-02-15 11:44:00) [3]
Копался, копался весь день но так и не понял как сворачивать, а добавляю вот так:
const WM_MY_MESSAGE = WM_USER + 0; procedure UpdateTaskBar; var NotifyData: TNotifyIconData; begin With NotifyData do begin cbSize := SizeOf(TNotifyIconData); Wnd := Application.Handle; uID := 0; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallbackMessage := WM_MY_MESSAGE; hIcon := Application.Icon.Handle; szTip := 'Отправка!'; end; Shell_NotifyIcon(NIM_ADD, @NotifyData); end;

Jay1982 (2005-02-14 15:13:00) [4]
Тогда в uCallbackMessage ты указываешь, сообщение, которое отсылаешь окну, вот его и обрабатывай...

Зигмунд (2005-02-14 14:09:00) [5]

> Jay1982 ©

через Shell_NotifyIcon

Jay1982 (2005-02-14 13:52:00) [6]
Зигмунд © (14.02.05 13:48) [7]
А как ты его туда добавляешь?

Зигмунд (2005-02-14 13:48:00) [7]

> Jay1982 ©

Спасибо. Но это то я знал.
А вот Как отловить что призошел клик именно над значком моей программы, находяшейся в system tray?

Jay1982 (2005-02-14 13:47:00) [8]
Немного ошибся:
PostMessage(Form1.Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0)

Jay1982 (2005-02-14 13:35:00) [9]
Ты обрабатываешь полученные сообщения, а теперь делай так:
if Form1.Visible then Form1.Hide else Form1.Show
или же с "анимацией"
if Form1.Visible then begin PostMessage(Form1.Handle, WM_MINIMIZE, 0, 0); Form1.Hide end else Form1.Show end;

Jay1982 (2005-02-14 13:34:00) [10]
Ты обрабатываешь полученные сообщения, а теперь делай так:
if Form1.Visible then Form1.Hide else Form1.Show
или же с "анимацией"
if Form1.Visible then begin PostMessage(Form1.Handle, WM_MINIMIZE, 0, 0); Form1.Hide end else Form1.Show end;

Jay1982 (2005-02-14 13:32:00) [11]
Ты обрабатываешь полученные сообщения, а теперь делай так:
if Form1.Visible then Form1.Hide else Form1.Show
или же с "анимацией"
if Form1.Visible then begin PostMessage(Form1.Handle, WM_MINIMIZE, 0, 0); Form1.Hide end else Form1.Show end;

Cosinus (2005-02-14 13:25:00) [12]
Отлавливать сообщения мыши. См. справку+кучу примеров в нете.

Зигмунд (2005-02-14 13:17:00) [13]
Как сделать-то? в трей помешать я уже научился. а как свернуть в трей? Помогите мне.

Наверх

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