掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
RichEditに動的にテキストを追加する時ちらつかせないようにするには？ (ID：45635)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
解決してしまったのですが・・・ > RichEdit1 := RichEdit1 + s; これ、RichEdit1.Lines.Text := RichEdit1.Lines.Text + s; ですかね？ 単なる文字だけで、いいのなら、RichEdit1.Lines.Add(s); だけで十分だと思うのですが。 RichEdit1.Line.Addだけでは、ちらつきませんでしたが、 RichEdit1.Lines.Text := RichEdit1.Lines.Text + s; のようにするとちらつきました。 "s"が、行単位ではなく、改行コード込みの文字列なのであれば、以下のようにTStringListに 一度入れて、行数チェックしてから追加したらいいのかなと。 var sl: TStringList; i: Integer; begin sl := TStringList.Create; sl.Text := s; RichEdit1.Lines[RichEdit1.Lines.Count-1] := RichEdit1.Lines[RichEdit1.Lines.Count-1] + sl[0]; for i := 1 to sl.Count-1 do RichEdit1.Line.Add(sl[i]); ...
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.