taborder

来源:互联网 发布:网页后端 python 编辑:程序博客网 时间:2024/06/06 17:04
var I: integer;
begin
 for I:=0 to Self.ComponentCount-1 do
 begin
   if  (Components[i] is  TWinControl) then
   (self.Components[i] as TWinControl).TabOrder := i;
 end;
end;
原创粉丝点击