Помогите вызвать окно на передний план
От: Death Украина www.proantivirus.com
Дата: 10.02.02 13:14
Оценка:
В модуле формы описано:



procedure TForm1.FormCreate(Sender: TObject);
begin
application.OnMinimize:=MyMinimize;
application.OnRestore:=MyRestore;
end;

procedure TForm1.MyMinimize(Sender: TObject);
begin
ShowWindow(Application.Handle,sw_Hide);
end;

procedure TForm1.MyRestore(Sender: TObject);
begin
ShowWindow(Application.Handle,sw_ShowNormal);
SetForegroundWindow(Application.MainForm.Handle);
end;



Прога загружается уже минимизированной.
минимизируется в трей (TRxTrayIcon)! .
при двойном нажатии востанавливается отлично.

А теперь задача:
по таймеру (250 мс) проверяется список запущенных задач и если найденна некоторая задача (запуск её) — надо всплыть из трея и показаться на переднем плане.
Использую: Application.Restore
Под 9х всё работает, под 2000 и ХР (может и под НТ4 — непробовал) — только моргает в панели задач и все — наверх выползать и не собирается.
Пробовал включать на форме свойство "StayOnTop" — результат тот-же.

кто, что посоветует?
---
Sergey Bodnya
http://www.proantivirus.com
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.