Вниз
Скачать: CL | DM;

Помогите вызвать форму на передний план.   Найти похожие ветки 

 
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" - результат тот-же.

кто, что посоветует?


 
Raptor ©   (2002-02-10 00:07) [1]

В вынь2к есть такая штука в настройках как запрет перехвата фокуса, что бы всякие там проги, которые почему-то возомнили себе, что их хотят видеть, не мешали юзеру работать.


 
Death ©   (2002-02-10 00:34) [2]

где это находиться в настройках?
можно ли это обойти?
храниться ли это в реестре?


 
Raptor ©   (2002-02-10 17:29) [3]

где это находиться в настройках?
можно ли это обойти?
храниться ли это в реестре?

Насколько мне известно, этого нет в стандартных настройках, по крайней мере я не нашел. Я изменяю эту настройку с помощью TweakUI, а он что то меняет в реестре. Я отловил, что при установленой опции ключ ForegroundLockTimeout имеет такое значение

[HKEY_CURRENT_USER\Control Panel\Desktop]
"ForegroundLockTimeout"=dword:00030d40

А при снятой

[HKEY_CURRENT_USER\Control Panel\Desktop]
"ForegroundLockTimeout"=dword:00000000



 
Suntechnic ©   (2002-02-11 07:48) [4]

См. http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1012232228&n=0



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c
1-32742
dimonf
2002-03-29 09:39
2002.04.11
Народ, подскажите, как мне вывести на печать TConvas Panel-и?


1-32750
Yuraz
2002-03-30 15:48
2002.04.11
Функция


3-32717
onix
2002-03-21 13:24
2002.04.11
Удаление текущей записи из Dataset a


1-32777
AndrewK
2002-03-28 14:10
2002.04.11
Конвертация таблицы в Excel


1-32892
atmospheric
2002-03-29 16:57
2002.04.11
Потоки




   Наверх