如何实现在程序运行期间一个Edit控件不可能拥有输入焦点？

Question

现在的情形是
是鼠标单击，或用Tab都能使它有输入焦点，但我不想要这个输入焦点
使我的程序不美观！

Answer 1

procdure tform1.edit1keypress();
  begin
   edit1.enabled:=false;
  end;
我不知道对不对,你可以试一试啊

Answer 2

你如果不想有输入，就用edit1.enabled:=false;用SetFocusedControl（）可以设置焦点，你试试

Answer 3

让它的enable为false是可行的，
只是它这样，Edit1的显示字体的颜色发生了变化，
我选择的是（在Edit1的Font.Color里）clMaroon但自从enable为false后，运行时显示的字体颜色为灰色的。太不美观了

Answer 4

把enabled设成false不就可 以了
我只会瞎说

Answer 5

让它的enabled为false是可行的，
只是它这样，Edit1的显示字体的颜色发生了变化，
我选择的是（在Edit1的Font.Color里）clMaroon但自从enabled为false后，运行时显示的字体颜色为灰色的。太不美观了

Answer 6

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
        key:=chr(0);
end;
这样连paste都失效了。