一个取得焦点的问题~~~

Question

那要看你怎么提示错误，在哪提示，然后一个object.setfocus
不就行了

Answer 1

每个控件都有sender参数，用它定位

Answer 2

在TForm1.Edit1Exit 事件中判断输入是否有错误，如果输入错误则这个EDIT。setfocus.出现错误提示后判断是那个EDIT出现错误，然后就EDIT。setfocus.不过我不知道你问的是不是这个意思，如果是这样的话就太简单了，好象不需要在这里问哦。

Answer 3

比如说在OnExit事件中写（所有的Edit都对应这段代码）
procedure TForm1.EditExit(Sender: TObject);
begin
  if (Sender As TEdit).Text 不符合某种要求 then
  begin
    (Sender as TEdit).SetFocus;
    (Sender as TEdit).SelectAll;
  end;
end;