Builder TMemo 最初の行から表示

質問

Builder のMemoでリストを表示すると、Memoの高さがリストの長さより短い時、リストの最後が表示されています。
これをリストの最初から表示する方法は無いでしょうか。

表示したリストの長さを覚えて置いて、その分
Memo1->Perform(EM_SCROLL, SB_LINEUP, 0);
を行えば目的は達成されるのですが、それではちょっとプログラム的に格好悪いので、何か方法をご存知の方居られましたらお教え下さい。

よろしくお願い致します。

回答No.1

麻野 なぎ（@AsanoNagi） · ベストアンサー

案１
表示内容を一度別の TStringList に移して、
Memo1->Lines->Addstrings() を使うと、表示場所が変化しない気がします。

案２
表示の先頭に戻すのでよければ、表示した後で、
Memo1->Lines->Insert(0, "");
で先頭に空行を追加して、
Memo1->Lines->Delete(0);
で、それを削除すると、いいかもしれません。

お礼

ご回答ありがとうございます。

案1はやっては見ませんでしたが、ステップが多く成りそうなので案2を採用させて頂きます。
InsertとDeleteを
組み合わせるのは気が付きませんでした。

ありがとうございました。