[Electronic_Arts]

Как кликом на Button1 свернуть программу в трей? если можно исходник.

Заранее благодарю

[Holy]

Установи компонент TCoolTrayIcon. Там все просто:

Код:

CoolTrayIcon.HideMainForm;

В BDS 2006 есть компонент TTrayIcon.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TrayIcon1.Visible := True;
  Application.MainForm.Hide;
end;

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
  TrayIcon1.Visible := False;
  Application.MainForm.Show;
end;

[Electronic_Arts]

Отлично и гдеже мне достать эти компоненты ? у меня Delphi7

[Admin]

Сообщение от Electronic_Arts

Отлично и гдеже мне достать эти компоненты ? у меня Delphi7

Также можешь посмотреть в сторону компонента FWTrayIcon

[Electronic_Arts]

Спасибо огромное попробуем

[mav_c]

Сообщение от Electronic_Arts

Спасибо огромное попробуем

Компоненты-это хорошо!!!!
Но ещё лучше Win32 API:
В uses пишеш ShellAPI
Глобальное объявление: iconData : TNotifyIconData;
<B>При создании формы</B>
<I>
iconData.cbSize := sizeOf(iconData);
iconData.Wnd := Handle;
iconData.uID := 0;
iconData.uFlags := NIF_ICON or NIF_TIP or NIF_MESSAGE;
iconData.hIcon := Application.Icon.Handle;
iconData.szTip := 'MailAlert';
iconData.uCallbackMessage := WM_MOUSEMOVE;
Shell_NotifyIcon(NIM_ADD, @iconData);
</I>
Потом перехватывай WM_MOUSEMOVE и гляди параметры
Что-бы уничтожить иконку в трее пиши:
Shell_NotifyIcon(NIM_DELETE, @iconData);
А что бы скрыть кнопку приложения из TaksBar пиши ShowWindow(Application.Handle, SW_HIDE);