[delphi-users:2389] Memo1の自動スクロール

[しばじゅんた]

はじめまして　しばじゅんたと申します。

Memo1(WRapはtrue)とButton1,2,3があります。
Button1,2,3の押下で、色々な文字列をMemo1に追加又は挿入します。
追加挿入された事が直ぐに分かるように、その行にMemo1をスクロールさせたいのですが、出来ません。

１．文字列追加挿入時に文字列+"!@#"を一緒に埋め込み、Lines->Count までこの文字がある行を探す。
２．Memo1の高さはそれほど大きくないが変更は出来るので、Scroll By -1000高さで一番上に（しょうもないロジック^^ゞ、うまく動いていないです）。
３．Scroll By 文字のあった行*12 で下にスクロールさせるとかしていますが、
（エラーになっているかも知れないので実際はScroll By 1　を Memo1->Heightまで）
これもしょうもないロジック、うまく動いていないみたいです。

そもそも、一番下にスクルールする、だけでも良いのですが、これも方法が分からないです。

Memo->TextのLength は、途中の改行したいで２バイトの差が出るのですがこれが普通なのでしょうか？（あああ\x0d\x0aいいい\x0d\x0a　が16バイトだったり14バイトだったり????）

何かいい方法はありませんかね？
指定の高さに（出来れば行に）一発でスクロールさせる、というのがあれば良いのですけど。
宜しくお願いします。

(BCBなのですが黙テンで)

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メールだけでみんなを招待できる便利機能♪
http://ad.freeml.com/cgi-bin/sa.cgi?id=hLabv
------------------------------------------------------[freeml byGMO]--

[Terry]

しばじゅんた さん、こんにちは。Terry（寺田）です(^-^)

|そもそも、一番下にスクルールする、だけでも良いのですが、これも方法が分からないです。
------------------->8-------------------------------->8---------
|(BCBなのですが黙テンで)

Delphi ですが
http://delfusa.main.jp/delfusafloor/archive/VA009712_take/delphi/kabedel.htm

o(^^ )o--------⊆^U)┬┬~...
Terry

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
練習や試合の予定調整は「とっとと決め太郎」におまかせ！
http://ad.freeml.com/cgi-bin/sa.cgi?id=hLiEp
------------------------------------------------------[freeml byGMO]--

[ishida]

procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo1.SelStart := Length(Memo1.Lines.Text); //キャレット位置を最後に移動
Memo1.Perform(EM_SCROLLCARET, 0, 0); //キャレット位置までスクロール

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := Memo1.Text + 'IOIOI';
end;

はじめまして　しばじゅんたと申します。

これもしょうもないロジック、うまく動いていないみたいです。

そもそも、一番下にスクルールする、だけでも良いのですが、これも方法が分からないです。

(BCBなのですが黙テンで)

MLホームページ: http://www.freeml.com/delphi-users

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
毎日豪華プレゼントキャンペーン開催中！くまポン
http://ad.freeml.com/cgi-bin/sa.cgi?id=hLtnZ
------------------------------------------------------[freeml byGMO]--