0

Firemonkey で TMemo に行を追加し、TMemo に表示できるよりも多くの行がある場合に、追加された行をスクロールして表示したいと考えています。その方法が見つかりません。私は試した

Display.Lines.Add (arg);
Caret.Line := Display.Lines.Count - 1;
Caret.Pos  := 0;
Display.CaretPosition := Caret;

しかし、それは役に立ちませんでした。ヘルプは非常に限られているため、ここで何をしているのかわかりません。

アップデート

回答者のコードを試してみると、コード例を間違ってテストしていたことに気付きました。申し訳ありませんが、私の唯一の言い訳は、コードを書いてテストしたのが真夜中近くだったということです。上記のコードは機能します。元のコードからこのステートメントを削除したのはDisplay.CaretVisible := True;、これが目的の動作に影響しなかったためです。

4

2 に答える 2

6

を介して文字列を追加しているだけなのでLines.Add()、呼び出しDisplay.GoToTextEndて最後までスクロールし、追加したばかりの行を表示できます。

于 2012-11-19T22:38:59.013 に答える
4

VScrollBar.Value プロパティの値をその最大値に設定できます。これは、常にメモ (ScrollBox) の一番下までスクロールするか、スクロールバーを強制します。

例えば:

Display.VScrollBar.Value := Display.VScrollBar.Max
于 2012-11-19T22:34:45.093 に答える