Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

Поместите кнопку 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, и это решение будет даже более простым.


 

Комментарии   

 
0 #1 proper ballroom 14.03.2017 14:16
Pretty section of content. I just stumbled upon your website and in accession capital to assert that I acquire in fact enjoyed account
your blog posts. Any way I will be subscribing to your feeds and even I
achievement you access consistently fast.
Цитировать
 
 
0 #2 wedding limo service 17.03.2017 18:55
What's Happening i am new to this, I stumbled upon this I have found It positively useful and it has aided me out loads.
I am hoping to give a contribution & aid different customers like its
aided me. Good job.
Цитировать
 

Добавить комментарий


Защитный код
Обновить