Анимация текста

Поместите кнопку TButton по имени AnimateButton, метку TLabel по имени lblText и поле редактирования TEdit по имени editToAnimate на форму по имени AnimationForm.

В событии щелчка кнопки напишите:

procedure TForm1.AnimateButtonClick(Sender: TObject);
var
  c, charInProcess: char;
  word: string;
begin
  lblText.Caption:= '';
  for c in editToAnimate.Text do
  begin
    for CharInProcess in ['а'..c] do
    begin
      lblText.Caption:= Word + charInProcess;
      lblText.Refresh;
      Sleep(10);
      Application.ProcessMessages;
    end;
    word:= word + c;
  end;
  lblText.Caption:= word;
end;

Что будет отображаться в lblText, когда в editAnimate будет находиться текст, например "delphi", когда кнопка будет нажата:

b...
d
da
db...
de
dea
deb
dec...
del
dela
delb
delc...
delp
...
delphi

Обратите внимание на вызов Sleep и Application.ProcessMessage. Можно использовать и TTimer, и это решение будет даже более простым.

—

03.09.2016

coder

Анимация текста

Комментарии