Как да направите активна форма

Как да направите формата на активни?

Уважаеми! Помощ, как да се уверите, че молбата ми е включен постоянно? Благодаря предварително.

Защо? Тук вие казвате - защо е необходимо?

Представете си - вие имате на компютъра си виси една програма, която винаги нахален изкачвания на и се държи за въвеждане на фокуса. За да работите с други програми на практика е станало невъзможно.

Добре казано, добре, най-малко можете да направите до известна vryamya програмата става активен?

Не е най-добрият, но най-лесният начин - проверка на времето на таймера и след това Application.BringToFront.

> В някои vryamya

Значение на системата време?

Направих това парче един tovarischu- неуспехи симулатор система, шега за защита от досадни съсед функция стартира при стартиране не се появи в панела, и след известно време, съобщение за грешка, след psevdovindovskie 4-5th изпратен на системата да се рестартира, съсед той обясни, че колата е бъги, че е време да пренаредите Windows, а сега седи poldvenadtsatogo не работи. С две думи, посланието, което държи на повърхността, както следва:
# XA0;
SetWindowPos (Form1.Handle, hwnd_TopMost, 100,200,500,100, SWP_NOMOVE);

Координати и размер - подробностите, където съм била променливи, в зависимост от посланието и да изберете параметрите на функцията на помощ "и има много възможности, дойдох доста намален.
Аз функционира в първата версия, наречена периодично от таймер, а след това започна да се справят OnDeactivate приложения:

процедура TForm1.FormCreate (Sender: TObject);
започвам
Application.OnDeactivate: = AppDeactivate;
приключи;

процедура TForm1.AppDeactivate (Sender: TObject); # XA0; //
започвам
# XA0; # XA0; SetWindowPos (Form1.Handle, hwnd_TopMost,
# XA0; # XA0; # XA0; # XA0; 100,200,500,100, SWP_NOMOVE);
приключи;

В този аспект, то е винаги на върха, но без вход фокуса за излишни. Номерът, според мен, едно и също нещо е да се спечели.

CHDelphiPack
CHForm компонент
OnTopMode имот

Да, по-добре да се направи най-горната,
активирате прозореца си (фокус) на таймера