Форум: "Система";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
ВнизФокус ввода Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c