PureBasic

Coucou, je coince sur un truc :

Je n'arrive pas à savoir si un webgadget à le focus ou non.

Avec getactivegadget(), ca ne marche pas, ou alors j'ai fait ca comme un pied.

Si vous avez une idée

Merci

Bien s'il n'est pas possible de détecter le focus avec l'API GetFocus_() alors je suppose qu'il faut que tu détectes le click sur le WebGadget; un mouse Hook te permettrait de faire facilement cela.

Un code du forum anglais:

Code : Tout sélectionner

Procedure WinCallback(hwnd, msg, wParam, lParam)
  result = #PB_ProcessPureBasicEvents
  If msg = #WM_PARENTNOTIFY
    Select wParam &$FFFF
      Case #WM_LBUTTONDOWN, #WM_RBUTTONDOWN
        hGad = ChildWindowFromPoint_(hwnd, lParam &$FFFF, lParam >>16 &$FFFF)
        idGad = GetDlgCtrlID_(hGad)
        SetGadgetText(2, "Focused Gadget ID is #" + Str(idGad) + " " + GetGadgetItemText(idGad, #PB_Web_PageTitle))
    EndSelect
  EndIf
  ProcedureReturn result
EndProcedure
If OpenWindow(0, 0, 0, 600, 500, "", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar)
  If CreateGadgetList(WindowID(0))
    WebGadget(0, 0, 0, 600, 230, "http://www.google.com")
    WebGadget(1, 0, 260, 600, 230, "http://www.yahoo.com")
    StringGadget(2, 0, 235, 600, 25, "")
    SetGadgetColor(2, #PB_Gadget_BackColor, #Red)
    SetGadgetColor(2, #PB_Gadget_FrontColor, #White)
    SetActiveGadget(2)
    SetWindowCallback(@WinCallback())
  EndIf
EndIf

Repeat
 
  event = WaitWindowEvent()
 
Until event = #PB_Event_CloseWindow

End

Cool, merci Nico

PureBasic

Focus avec un WebGadget

Focus avec un WebGadget