Фокус ввода. [D3, Win95/98, Win2k]
Jazzy$ © (2001-11-10 23:17:00)
Есть окно. Как сделать так, что бы оно НИ при каких
обстоятельствах НЕ потеряло фокуса ввода, т.е. я переключаюсь на
другое приложение, а мое окно все равно остается активным, и не
дает другому окну стать активным.
yuger (2001-11-12 10:06:00) [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;
Наверх 
ЧАТ |
Орешник |
|
