如何让Memo组件没有输入焦点呢？

Question

我用Memo只是为了显示文字，并不需要在里面进行操作，但是光标总在上面闪，很烦人，虽然我设成了readonly但是，那个光标始终有，哪位高人知道怎么办啊？

Answer 1

将memo的Enable属性设置成False,这样就可以了，如果闲设置后颜色不好看，可以设置背景颜色和前景颜色

Answer 2

如果Enabled为false，那么Memo中的滚动条将被冻结，试想长长的文字.....

Answer 3

但是enable:=false后，memo里面的字颜色都变成灰的了

Answer 4

肯定不能靠改其他东西的颜色来迁就momo三，不知各位还有什么办法吗？
hidecaret(memo1.handle);没有效果，不知为什么

Answer 5

Memo1 OnMouseMove中写代码：
HideCaret(Memo1.Handle);

Answer 6

可是我这个程序只有这个memo可以有输入焦点，进入程序，光标就停在那个里面闪了，无语惨了：（

Answer 7

procedure FormCreate(Sender: TObject);
begin
memo.Enabled := false;
end;

Answer 8

换成TStaticText得了，然后StaticText1.BorderStyle:=sbsSunken;

Answer 9

memo.onclick中写
hidecaret(0);就可以了

Answer 10

OnMouseDown中加入
HideCaret(Memo1.Handle);
TabStop:False;
好象可以