Форум: "WinAPI";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизПомогите вызвать форму на передний план. Найти похожие ветки
← →
Death (2002-02-09 23:19) [0]В модуле формы описано:
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" - результат тот-же.
кто, что посоветует?
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c