Question

高手帮忙！在delphi中如何禁止edit 在中输入东西 ？

Enabled属性为假除外！

Answer 1

方法一：
判断是否触发change事件，如果有内容更改，让其执行为空操作
方法二：
判断是否在上面keydown事件，如果有按键，让其执行其他操作
方法三：
用消息传递，达到和Enabled相同效果！

Answer 2

有一个办法,就是把当前的内容先保存起来,然后只要有人改变,就还原,要三部曲
一,先定义 全局变量
var
s:string;
二
编写Form1的OnCreate 事件如下
procedure TForm1.FormCreate(Sender: TObject);
begin
S:=edit1.text;
end;
三
编写Edit1的OnChange 事件如下
procedure TForm1.Edit1Change(Sender: TObject);
begin
s:=edit1.text;

end;

Answer 3

在它的keydown 事件里处理一下

key = "";或是key = #0

好久不写大概是这个意思

Answer 4

不用那么麻烦的……
不设Enabled属性的话，把ReadOnly设为True就是了，这样就无法在其中输入内容了。