delphi中SetFocus的使用

来源：百度知道编辑：UC知道时间：2024/05/18 04:06:31

帮忙举个例子说明SetFocus的使用，随便找个控件都行，最好是FORM或者是Edit组件！希望大侠帮忙，感激不尽！本人新手，分数不多，请见谅！

在窗体上添加两个edit组件，一个button：
procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.SetFocus ;
end;
运行调试后你会发现输入焦点由edit1转移到了edit2.

必须是wincontrol派生的控件才能响应Focus事件。