Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Фокус ввода 


Jazzy$   (2001-11-10 23:16) [0]

Есть окно. Как сделать так, что бы оно НИ при каких обстоятельствах НЕ потеряло фокуса ввода, т.е. я переключаюсь на другое приложение, а мое окно все равно остается активным, и не дает другому окну стать активным.



Anatoly Podgoretsky   (2001-11-11 19:28) [1]

Такие программы долго не живут



yuger   (2001-11-12 11:17) [2]

TForm1 = class(TForm)
private
...
procedure WMACTIVATE(var a:TWMACTIVATE); message WM_ACTIVATE;
...
public
{ Public declarations }
...
end;

procedure TForm1.WMACTIVATE(var a:TWMACTIVATE);
var hForeGround:HWnd;
begin
if (a.Active = WA_INACTIVE) then
begin
hForeGround:=GetForeGroundWindow;
if Handle<>hForeGround then
begin
AttachThReadInput(GetWindowThReadProcessId(hForeGround,nil),
GetWindowThReadProcessId(Handle,nil),True);
end;
end;
a.Result:=0;
end;




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.028 c
1-42753           GorA                  2002-01-31 11:06  2002.02.14  
Статические методы?


3-42702           ava                   2002-01-22 23:17  2002.02.14  
Как перенести, а затем востановить, данные из таблицы


14-42851          Knight                2001-12-22 11:59  2002.02.14  
Решил подарочек сделать маме... Вопросик возник!


7-42887           aguliver              2001-11-06 06:52  2002.02.14  
Как обработать данные с микрофона в Real-Time


6-42817           Kirill45              2001-11-25 02:55  2002.02.14  
Net