Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.14;
Скачать: CL | DM;

Вниз

Фокус ввода   Найти похожие ветки 

 
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;



Страницы: 1 вся ветка

Текущий архив: 2002.02.14;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
7-42881
Al Creator
2001-11-07 22:52
2002.02.14
Как получить разрешение экрана?


3-42698
ТеньЛуны
2002-01-22 17:01
2002.02.14
Microsoft Transaction Server&Borland AppServer


6-42816
Knish
2001-11-24 18:53
2002.02.14
А как можно сделать, чтоб программа запускалась только на сервере?


3-42665
Eduard
2002-01-21 09:47
2002.02.14
InsertRecord и DateTime


1-42742
asdf
2002-01-30 13:24
2002.02.14
Создание объектов