Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

get input focus on mouse over

[es] :: Pascal / Delphi / Kylix :: get input focus on mouse over

[ Pregleda: 864 | Odgovora: 2 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

alxsabo
aleksandar sabo
Novi Sad

Član broj: 125775
Poruke: 14
*.ptt.yu.

Sajt: aleksandarsabo.freehostia..


Profil

icon get input focus on mouse over10.01.2007. u 23:03


Problem je sledeci u momentu kada neki drugi program ima keyboard input focus i korisnik predje misem preko prozora mog programa, tada moj program treba da dobije keyboard input focus. Tj. Ja treba da napisem neki kod koji ce na dogadjaj OnMouseOver da selektuje neku komponentu i dodeli joj navedeno.

Ja uspevam da uradim da drugom programu preko mog programa dam input focus, ali sebi ne. SetForegroundWindow ne funkcionise u ovom slucaju, kao ni SetActiveWindow.

Sta da radim?
10.01.2007. u 23:03 

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 1464
212.200.219.*



Profil

icon Re: get input focus on mouse over11.01.2007. u 00:55
Code:

procedure ActivateApplication;
var
  ActiveThreadId, CurrentThreadId: DWORD;
begin
  if GetForegroundWindow <> Application.Handle then
  begin
    ActiveThreadId := GetWindowThreadProcessId(GetForegroundWindow, nil);
    CurrentThreadId := GetCurrentThreadId;
    AttachThreadInput(CurrentThreadId, ActiveThreadId, True);
    SetForegroundWindow(Application.Handle);
    AttachThreadInput(CurrentThreadId, ActiveThreadId, False);
    BringWindowToTop(Application.Handle);
  end;
end;

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.yu/~fangor...stions/smart-questions.sr.html
11.01.2007. u 00:55 

alxsabo
aleksandar sabo
Novi Sad

Član broj: 125775
Poruke: 14
*.ptt.yu.

Sajt: aleksandarsabo.freehostia..


Profil

icon Re: get input focus on mouse over11.01.2007. u 01:12
Radi

Hvala puno,
11.01.2007. u 01:12 

[es] :: Pascal / Delphi / Kylix :: get input focus on mouse over

[ Pregleda: 864 | Odgovora: 2 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.