PHP DM Gate v0.9 » Андрей

Andrey Alekseev (26.02.15 17:39) [0]

Здравствуйте. подскажите, как сделать эффект загрузки. Например к слову "загрузка" после каждой секунды добавлять точку.

<Цитата>
RWolf © (26.02.15 17:56) [1]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := 'Загрузка' + StringOfChar('.', NumberOfDots);
NumberOfDots := (NumberOfDots + 1) mod 4;
end;

<Цитата>
Andrey Alekseev (26.02.15 17:59) [2]

NumberOfDots объявить как Integer?

<Цитата>
anonims (26.02.15 19:21) [3]

Caption:='Начало';

Cfption:=Caption +'.';

<Цитата>
Andrey Alekseev (26.02.15 19:34) [4]

Не работает

<Цитата>
Andrey Alekseev (26.02.15 20:12) [5]

добавляется только одна точка, а нужно штук 5...

<Цитата>
кгшзх © (26.02.15 21:41) [6]

один андрей - одна точка.
будет два - будет две.
три-три.
будет штук пять - будет пять штук

<Цитата>
megavoid © (27.02.15 02:41) [7]

[1] подойдёт прекрасно :)

unit...
...

var
NumberOfDots: Byte = 0;

...

procedure LoadingSomething;
begin
Timer1.Enabled := True;
...
cycle:
dosomethinglong;
application.processmessages; // !!!achtung!!!
endcycle:
...
Timer1.Enabled := False;
end;

...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Caption := 'Загрузка' + StringOfChar('.', NumberOfDots);
NumberOfDots := (NumberOfDots + 1) mod 4;
end;

<Цитата>
Andrey Alekseev (27.02.15 06:03) [8]

Спасибо, ребята!!! :-))

<Цитата>
manaka © (27.02.15 15:01) [9]

> Например к слову "загрузка" после каждой секунды добавлять
> точку.

загрузка может длиться минут 10... 600 точек...

<Цитата>
junglecat © (27.02.15 15:48) [10]

> загрузка может длиться минут 10

про такую загрузку можно сказать "слов нет - одни точки!"

<Цитата>