怎么让一个控件一直拥有焦点

Question

有没有什么方法让一个控件一直都拥有焦点的

Answer 1

可翠在FORM的ENTER裏面寫上一直對這個控件處於焦點，離開裏面也寫上

Answer 2

在onexit里面写 控件.setfocus;

Answer 3

procedure TForm1.Edit1Exit(Sender: TObject);
begin
 Edit1.SetFocus ;
 Edit1.SelStart := Length(Edit1.Text) ;
end;

Answer 4

这样Button就点不了啦，
看来不能用其他能够获得焦点的控件
或者自子写必要的控件