[ alxsabo @ 10.01.2007. 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?
[ savkic @ 11.01.2007. 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;

[ alxsabo @ 11.01.2007. 01:12 ] @
Radi

Hvala puno,