如何隐藏TMemo控件里的那个光标

我用TMemo控件显示大段静态文本，文本随鼠标在不同位置而不同，所以最好不显示光标，否则不伦不类

解决方案 »

  1.   

    这样呀!!
    你可以设置输入框为只读,然后判断用户的鼠标位置,给文本框发送SCROLL消息就可以啦!!
    何必这么复杂呢???
      

  2.   

    最简单的方法是让TMemo控件不要获得输入焦点
      

  3.   

    我试过hidecaret对TMemo是无效的
      

  4.   

    我也有一个办法:
    在你显示MEMO时,就 MEMO.SELECTALL;
    这样就看不到光标了.
      

  5.   

    to lxl:
      好像不行。
    我现在的方法是：procedure TForm1.FormActivate(Sender: TObject);
    begin
      if ActiveControl = Memo1 then ActiveControl := nil;
    end;procedure TForm1.Memo1Click(Sender: TObject);
    begin
     HideCaret(Memo1.Handle);
    end;
      

  6.   

    还有一个问题，当鼠标移动至memo里时，鼠标指针会自动变为编辑光标，如何才能让鼠标指针不变
      

  7.   

    设置TMemo的光标属性为普通光标.