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




Вниз

Фокус ввода. 


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

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



yuger   (2001-11-12 10:06) [1]

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;




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




Наверх





Память: 0.71 MB
Время: 0.049 c
1-42462           voice                 2001-12-25 11:03  2002.01.14  
ShellExecute?


3-42369           Softmaster            2001-12-11 20:14  2002.01.14  
Проблема с группировкой в отчете при использовании QReport


3-42348           BAS                   2001-12-06 13:07  2002.01.14  
Жрет память TOraSQL в ODACе


3-42363           Китаец Ла Ме          2001-12-12 21:40  2002.01.14  
Мультиверсионность


1-42411           Bar                   2001-12-25 20:34  2002.01.14  
GetVolumeInformation неодинаково ведет себя под 98/Me и NT