BN_SETFOCUS = 6;BN_KILLFOCUS = 7;
这是好象是的

解决方案 »

  1.   

    LBN_SETFOCUS  = 4;
      {$EXTERNALSYM LBN_KILLFOCUS}
      LBN_KILLFOCUS = 5;
      

  2.   

    CBN_SETFOCUS   = 3;
      {$EXTERNALSYM CBN_KILLFOCUS}
      CBN_KILLFOCUS  = 4;
      

  3.   

    获得焦点 onenter
    失去焦点 onexit
    from的焦点控件 from.activecontrol
      

  4.   

    获得焦点 onenter
    失去焦点 onexit
    from的焦点控件 from.activecontrol
      

  5.   

    截获?!
    重载message处理过程
      

  6.   

    要看是什么控件,有些Delphi有提供,有些要自己写,参见Windows API
      

  7.   

    1.Delphi自定義消息
    獲得焦點消息:CM_MOUSEENTER
    失出焦點消息:CM_MOUSELEAVE 
    2.WINDOWS消息
    獲得焦點消息:WM_SETFOCUS
    失出焦點消息:WM_KILLFOCUS