Question

delphi 对窗体中的控件进行遍历

在一个窗体上放置若干个按钮、编辑框，写一个方法对窗体中的控件进行遍历，若为按钮，将其Caption设为“按钮”，若为编辑框，将其text设为“编辑框”。

Answer 1

for i := 0 to Form1.ComponentCount-1 do
begin
if Form1.Components[i] is TButton then
TButton(Form1.Components[i]).Caption := '按钮'
else
if Form1.Components[i] is TEdit then
TEdit(Form1.Components[i]).Text := '编辑框';
end;

Answer 2

关注