怎样在程序中遍历某form有taborder的控件？ ( 积分: 50 )

R

rgn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-02

• #1

怎样在程序中遍历某form有taborder的控件？(即label，query那些不用遍历)且将该控件的taborder保存到ini文件中，在程序启动时从ini文件读入该控件的taborder?

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-02

• #2

参考这段程序
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ComponentCount - 1 do
begin
if Components is TLabel then
ShowMessage((Components as TLabel).Caption);
end;
end;

 

D

dreamisx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-02

• #3

for i := 0 to ComponentCount - 1 do begin
if Components is TWinControl then begin
//保存 TWinControl(Components).TabOrder
end;
end;

 

S

stargazer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-02

• #4

代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TWinControl then begin
      //保存 TWinControl(Components[i]).TabOrder
    end;
  end;
end;

 

R

rgn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-03-09

• #5

多人接受答案了。