1


0

TextBoxに文字を追加するためのTTimerの使用

「TTimer」オブジェクトを使用して無限ループを実行する方法を知りたいのですが、毎秒「TextBox」に「N」という文字を追加する必要があります。 しかし、アプリケーションを凍結することなく。

1 Answer


2


TTimerコンポーネントをフォームに追加し、intervalプロパティを1000(1秒)に設定して、OnTimerイベントを処理します。 ハンドラーのコードにこれを追加します(テキストボックスの名前がtextBox1であると仮定):

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