Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812016 Wed, 03 Jan 2001 05:44:00 +0000 Кнопка приложения в панели задач https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812016 TrayIcon: PNotifyIconData;
begin
new(TrayIcon)
with TrayIcon^ do
begin
cbSize:=SizeOf(TrayIcon);
Wnd:=MessnagerForm.Handle;
uID:=0;
uFlags:=NIF_MESSAGE + NIF_ICON + NIF_TIP;
uCallbackMessage:=WM_USER + 100;
hIcon:=LoadIcon(HInstance, 'MAINICON');
szTip:='Hint';
end;
Shell_NotifyIcon(NIM_ADD, TrayIcon);
Потом перехватывай сообщение WM_User + 100
И всё...]]> ad_tolya Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812015 Tue, 02 Jan 2001 23:48:00 +0000 Кнопка приложения в панели задач https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812015 bobby Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812014 Tue, 02 Jan 2001 13:23:00 +0000 Кнопка приложения в панели задач https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812014 Demo_S Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812013 Sun, 30 Dec 2001 19:19:00 +0000 Кнопка приложения в панели задач https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812013 А для tray лучше скачай компонент systemtray]]> bobby Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812012 Sun, 30 Dec 2001 14:51:00 +0000 Кнопка приложения в панели задач https://forum.sources.ru/index.php?showtopic=108552&view=findpost&p=812012 nikitchenko Delphi: Общие вопросы