Как свернуть прогу в трее

[CHITER]

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

Я делал следующим образом:

TI_Logo: TRxTrayIcon;
.....
//Обработчик кнопки "Свернуть"
procedure TFMain.MinimizeClick(Sender:TObject);
begin
  //Прячем основное окно
  Hide;
  //Прячем кнопку на таскбаре
  if IsWindowVisible(Application.Handle)then
    ShowWindow(Application.Handle, SW_HIDE);

end;
....

//Разворачиваем окно при двойном щелчке по иконке
procedure TFMain.TI_LogoDblClick(Sender: TObject);
begin
  //разворачиваем главное окно
  Application.Restore;
  //сбрасываем признак сворачивания
  if WindowState = wsMinimized then WindowState := wsNormal;
  //Отображаем окно
  visible:=true;
  //Принудительно устанавливаем окно поверх остальных
  SetForegroundWindow(Application.Handle);
end;

А куда все это вставлять?

[Sergey_nl]

В обработчик onCreate галавной формы добавить

  //Установка обработчика кнопки "Свернуть"
  Application.OnMinimize:= MinimizeClick;

Обработчик onDblClick компонета TRxTrayIcon - функция TI_LogoDblClick,
написана выше

[Teen4jump]

//Установка обработчика кнопки "Свернуть"
Application.OnMinimize:= MinimizeClick;-- ошибка

[Sergey_nl]

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

//Установка обработчика кнопки "Свернуть"
Application.OnMinimize:= MinimizeClick;-- ошибка

Какая именно? Сама функция объявлена и описана?

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

Я делал следующим образом:

//Обработчик кнопки "Свернуть"
procedure TFMain.MinimizeClick(Sender:TObject);
begin
  //Прячем основное окно
  Hide;
  //Прячем кнопку на таскбаре
  if IsWindowVisible(Application.Handle)then
    ShowWindow(Application.Handle, SW_HIDE);

end;

[Teen4jump]

Когда начинаю компилировать, выделяется эта строка и пишет
[Error] Unit2.pas(48): E2009 Incompatible types: 'method pointer and regular procedure'

[Soviet_man]

у мну дельфи 7. как импортировать методы и пр.? там хелп для дельфей 2006 и на испанском)))) помогите....
если можно попродбней описание как делать

[AgressiveBehavior]

Где можно справочку по всем допустимым параметрам посмотреть ?
Пока нашел 2 (SW_Hide,SWSHOWMINNOACTIVE)

 ShowWindow(Handle,SW_HIDE);
ShowWindow(Form2.Handle, SW_SHOWMINNOACTIVE);

И вот вышеописаный код повторно не прячет кнопку на таскбаре.

[Stilet]

Одна тема - однин вопрос и один автор.
Закрыто.