掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TMemoの垂直スクロールバー自動表示 (ID:19452)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Memo1のChangイベントで動作させているようですが、これだと最初の１文字が入った時点で動作してしまい一文字しか表示されなくなります。 changイベントで行数が変わるのを調べて動作させればうまくいくようです。 ex. private { Private 宣言 } lCount : Longint; procedure TForm1.Memo1Change(Sender: TObject); begin if lCount <> Memo1.Lines.Count then begin lCount := Memo1.Lines.Count; MemoScrollBarsAutoShow; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.