Цитата:
Сообщение от ALexandr555
она и выполняет в той последовательности в которой прописаны действия)
|
Мне нужно вот что
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer; //счётчик цикла
begin
i:=1;
for i:=1 to 10 do
begin
label1.caption:=5;
<пауза х милисекунд>
label1.caption:=6;
<пауза х милисекунд>
label1.caption:=7;
<пауза х милисекунд>
end;
inc(i);
end;
|
Только с перемещением курсора