-1

Как можно создать эффект "печатающегося" текста по таймеру? Вопрос, как бы, "печатается", увеличиваясь на одну букву. Компонент-Tmemo

2
  • В каком компоненте надо такое реализовать? В TImage, TMemo, где?
    – AseN
    27 мая 2012 в 8:01
  • В компоненте TMemo 27 мая 2012 в 8:02

2 ответа 2

7

Руками, все руками...

Идея простая. Вешаешь на таймер обработчик, в каждой итерации которого к тексту в TMemo добавляешь один символ из строки которая должна получиться. Когда строка закончилась останавливаешь таймер.

Код писать не буду. Для того кто хочет разобраться это лишнее.

1
  • 2
    Во-во, не нужно такой до ужаса простой код писать. Кстати, вопрос, похоже, вытекает из одного из моих ответов.
    – DelphiM0ZG
    28 мая 2012 в 7:50
0

Неужели это правда так трудно: создать эффект печатающегося текста в простейшем в использовании компоненте?

procedure TForm1.Timer1Timer(Sender: TObject);  // событие "OnTimer"
begin
memo1.Lines.Text:=memo1.Lines.Text+CHR(Random(254)+40);  // печатаем...
end;

Поставьте интервал таймера в пределах от 100 до 600 мс

1
  • 1
    600 много, я когда-то проверял на программе выводящей графики - полсекунды и человек начинает думать что прога зависла
    – aknew
    28 мая 2012 в 14:56

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.