仓库管理软件版1楼: 如何让edit文本框中不能获得焦点

2楼: edit1.Enabled := False; 如用友财务软件使用

3楼: procedure TForm1.Edit1Enter(Sender: TObject);
begin
//如果该控件获得焦点，那么将焦点转到下一个控件上。
SelectNext((Sender as TEdit), True, False);
//如果上述的操作没有成功，那么说明可能这是最后一个控件了，那么选择第一个控件
if (Sender as TEdit).Focused then
SelectFirst;
end;

4楼: 呵,我那个方法也可以啊.基本上符合要求.

5楼: 照你那样做，控件是灰色的！

6楼: 不管灰猫还是白猫,捉到老鼠的就是好猫

仓库管理软件版7楼: 能捉到死老鼠和能捉到活老鼠的猫是不一样的！

8楼: 你这家伙,每次都要跟我贫...好象咱们前世有仇似的.

9楼: edit1.Enabled := False;//控件不可用
如果想更改颜色,再设置Font属性

另外，还有个TabStop属性,可使它的Tab失效,但能用鼠标点击获得焦点
总之，根据你自己的需要,进行设置就是了

10楼: royal1442的方法 如果Form上只有一个EDIT控件就不行了

11楼: 你的窗体上只有一个Edit，还不让它获得焦点？那不如用Label了！

12楼: 同意楼上观点，更直接！ 如速达软件

13楼: 在OnEnter事件中
Windows.SetFocus(GetNextDlgTabItem(Handle, TEdit(Sender).Handle, False));