Question

请问在DELPHI中，如何将窗体上的标签逐个显示出来？

比如，本人依次在Form上建了8个标签：Lable1,Lable2,Lable3,Lable4,Lable5,Lable6,Lable7,Lable8.
请问如何让他们逐个显示？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:= 0 to componentcount - 1 do
begin
application.ProcessMessages;
if (components[i] is TLabel) then
begin
(components[i] as TLabel).Visible := false;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject); //触发label显示
var
i: integer;
begin
for i:= 0 to componentcount - 1 do
begin
application.ProcessMessages;
if (components[i] is TLabel) then
begin
sleep(1000); //等待下一条显示时间
(components[i] as TLabel).Visible := true;
end;
end;
end;

Answer 2

加一个定时器timer，用时间来控制显示次序