get input focus on mouse over

Odgovori Nova tema

2 odgovora
4.087 pregleda

get input focus on mouse over 11.01.2007. u 00:03 · pre 241 mesec #1

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?

Potpis

Inspiration exists, but it has to find us working.

Re: get input focus on mouse over 11.01.2007. u 01:55 · pre 241 mesec #2

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;

Potpis

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.rs/~fangor...stions/smart-questions.sr.html

Re: get input focus on mouse over 11.01.2007. u 02:12 · pre 241 mesec #3

Radi

Hvala puno,

Potpis

Inspiration exists, but it has to find us working.

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme