使用计时器在文本框上添加字母

Question

我想知道如何使用TTimer对象进行无限循环，这应该每秒在N上添加TextBox字母。但是没有冻结申请。

Answer 1

将TTimer组件添加到表单，将其interval属性设置为1000（1秒）并处理OnTimer事件。对于处理程序的代码放置这个（假设您的文本框名为textBox1）：

textBox1.Text := textBox1.Text + 'N';