怎么让窗体上TabOrder=0的Edit获得输入焦点

[leemingsong]

怎么让窗体上TabOrder=0的Edit获得输入焦点？？？

[Hillside]

Edit1.SetFocus;

[leemingsong]

我在写模板，那时还不知道具体的Edit名称！

[windindance]

for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit) AND ((Components[i] as TEdit).TabOrder = 0) then
((Components[i] as TEdit).SetFocus;

[大帮手软件]

如果taborder=0,其应该是自动获得焦点

[leemingsong]

windindance(风舞轻扬) 的建议可以采用，有没有更简单的方法
假如我Taborder=0的控件类型不确定呢？TEdit,TComboBox,等等
(我做的是模板，那时是不知道什么控件类型的)

[leemingsong]

回复： linux_withwind(随风而去）
因为我想在模板中实现，重新填写的功能，那是焦点可能已经在别的控件了，我想回到第一个不确定类型的输入控件中，怎办？谢谢

[Hillside]

var
wctrl:TWinControl;
begin
for i:=0 to pred(ComponentCount) do begin
if not (Components[i] is TWinControl) then continue;
wctrl:=TWinControl(Components[i]);
if wctrl.TabOrder<>DesireTabOrder then continue;
wctrl.SetFocus;
break;
end;
end;

[windindance]

把TEdit改为TWinControl

[贾无民]

实际上，TabOrder=0的TEdit本身就自动取得输入焦点，但要注意在拥有父容器时，必须是父容器的TabOrder也是0才可以，处理办法：1、父容器TabOrder=0；
2、父容器是窗体的ActiveControl。
注意：以上条件存立的前提必须是“以上所述各控件的TabStop=True”