Эффект печатной машинки?

[SovereignSun]

Как создать для текста эффект печатной машиннки, например для TLabel, чтобы после запуска, не весь текст сразу появлялся, а последовательно печатался?

[veniside]

С помощью таймера, видимо.

[SovereignSun]

Видимо - это неопределенный ответ, я пробовал некоторыми способами самолично, ничего не выходит.

[veniside]

Неопределённый не потому, что нет уверенности в правильности ответа, а потому, что работающих способов сотни )

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := Copy('Slow motion caption', 1, Length(Label1.Caption) + 1);
end;

(Предполагается, что Label1.Caption вначале = '', а таймер Enabled с интервалом примерно 500)

[SovereignSun]

Нееет.. тут он как работ будет печатать по таймеру, а мне надо как настоящий пользователь чтобы выводилось, с разного рода задержками, и мигающей черточкой впереди как в Матрице. ну в общем более живое исполнение сего процесса.

[veniside]

"Огласите весь список, пожалуйста!"

А то и задержки уже не те, и чёрточки появились.. Следующим пунктом будет звук печатной машинки? Обратная отдача через клавиатуру? Звон каретки? Запах типографской ленты?

> мигающей черточкой впереди

вы печатную машинку давно видели? Какие там могут быть мигающие чёрточки?

[SovereignSun]

ну там типа не мегающая черточка, а конечно полосочка для следующего символа, но идея таже. Просто некоторые буквы набираються быстрее, некоторые медленнее, это random для таймера чтоли?

[veniside]

> это random для таймера чтоли?

а что вас смущает?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := Copy('Slow motion caption', 1, Length(Label1.Caption) + 1);
  Timer1.Interval := 200 + Random(600);
end;

[paxan86]

Поржал veniside +1

[3D Hunter]

я смотрю тут темы вообще ржачные, как на анекдот.ру, только для кодеров хожу)