Edit获得焦点后如何不进入编辑状态？？

Question

一般Edit获得焦点后，就有个编辑状态的小光标了，如何不让这个光标出来啊？？就是说得到焦点以后键盘输入无效

Answer 1

那为什么要得到焦点呢？输入无效可用enabled:=false，可无效后不能得到焦点。

Answer 2

是呀edit.readonly:=true;就输入无效了；

Answer 3

或者直接  key := #0跟readonly一样还是用readonly吧，方便，不用敲代码

Answer 4

如何不让这个光标出来啊？？
-------------
不显示光标，你如何知道Edit得到焦点了？

Answer 5

额我用的是SpinEdit没有这个属性

Answer 6

如何不让这个光标出来啊？？
-------------
不显示光标，你如何知道Edit得到焦点了？
有道理

Answer 7

不显示光标，你如何知道Edit得到焦点了？底下加个带颜色的SHAPE就可以了

Answer 8

不输入还要焦点干什么，enable=false

Answer 9

Edit1.ReadOnly:=True;在Edit1的OnKeyPress事件中
if key=#13 then Edit1.ReadOnly:=False;可以输入了在Edit的OnExit事件中
Edit1.ReadOnly:=True;  //离开后让它再次不能输入

Answer 10

就是为了让用户不麻烦啊
这样比较直观，如果不想更改数值的话就TAB到下一个，避免误操作改变数值

Answer 11

一开始没说清楚，应该是SpinEdit控件，这个控件没有ReadOnly属性。。不然就不用那么麻烦了。。

Answer 12

设置一个全局变量
flag:boolean;//初始化为false;
onkeypress事件中
if key=#13 then flag:=true;
if not flag then
  key:=#0;

Answer 13

是呀edit.readonly:=true;就输入无效了；

Answer 14

要光标   readonly:=true
不要光标 enale:=false

Answer 15

不进入编辑状态，又何必要进入edit控件呢？

Answer 16

在窗体上依次放3个edit控件，假设在edit1输入完后跳转到edit2，但不让它获得焦点，那就试试这样：
procedure TForm1.Edit1Exit(Sender: TObject);
begin
    Edit2.Enabled:=false;
    Edit2.Color:=clBlue;
end;

Answer 17

我试了试，在Edit1出来后确实Edit2获得了焦点