请问各位高手,为什么焦点在控件上,而光标不见了,向上面又可以输入内容?

解决方案 »

  1.   

    BOOL ShowCaret(
        HWND hWnd  // handle of window with caret 
       );
      

  2.   

    procedure TfrmClDoctor.wwDBEdit27Enter(Sender: TObject);
    curFocused: TwinControl;
    begin
      curFocused := TwwDBEdit(Sender);
      pgSickList.ActivePageIndex := 1;//就是因为这句话,焦点回来后就不显示了,而且用鼠标点都不行,点到其他地方再回来光标又会显示出来
      curFocused.SetFocus;
      ShowCaret(curFocused.Handle);end;