Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
g: integer;
begin
for I := 1 to 1000000 do
begin
for g := 1 to 1000 do
if g=1000 then label1.Caption:=IntToStr(g);
label1.visible:=true;
begin
for g := 1 to 1000 do
if g=1000 then label1.Caption:=IntToStr(g);
label2.visible:=true;
begin
for g := 1 to 1000 do
if g=1000 then label1.Caption:=IntToStr(g);
label3.visible:=true;
begin
for g := 1 to 1000 do
if g=1000 then label1.Caption:=IntToStr(g);
label4.visible:=true;
end;
end;
end;
end;
end;
end.
|
Admin: Пользуемся тегами!
1.При нажатии кнопки проходит 10сек в 1 лебеле появляется число 1000.
2.при 2 нажатии надо чтобы тоже проходило 10 сек и появялось во 2 лебеле число 1000.
3.итак далее.
у меня ограничевается всё 1 этапом=(
что я не правильно делаю?
18.12.2009, 10:05
Помогите с "лёгкой" (не для меня:D) проблемкой
Древовидный вид