スクロール中に最後の行に表示させるには?

---

RichEditに受信したデータを表示させていくプログラムを作成しています。

pRichEdit->SelText = cc;

とだけしているのですが、スクロールバーで画面を移動させていると止まってしまいます。
どうすれば止まらずに、表示も更新できてスクロールも使えるようになるかご存知の方いらしたら教えてください。

編集 削除

---

もうちょっと具体的にお願いできる？

編集 削除

---

RichEditでDragMode=dmAutomatic,Enabled=true、ScrollBars=ssBothに
設定した状態で、タスクでpRichEdit->SelText = cc;
とデータを表示させています。
スクロールバーを触らずにそのままの状態なら止まらずに
データが表示され画面もスクロールしていくのですが、
スクロールバーを触ったりしていると止まってしまいます。
うまく説明できませんが、わかってもらえたでしょうか?
スクロールバーを触っても止まらないようにはできるでしょうか?

編集 削除

---

受信データをRichEditに書き込む部分を
別スレッドにして、
動作させると、スクロールバーをさわっていても
情報更新が止まることはないです。

編集 削除

---

ScrollBars=ssBothと設定するのではなく、ScrollBarコンポーネントでするということでしょうか?

編集 削除

---

C++Builderでなく Delphiさんぷる

type
  TMyThread = class(TThread)
  private
   procedure Execute; override;
   procedure AddTextLine;
  end;

procedure TMyThread.Execute;
begin
  while not Terminated do begin
   Synchronize(AddTextLine);
   Sleep(500);
  end;
end;

procedure TMyThread.AddTextLine;
begin
  Form1.RichEdit1.SelText := StringOfChar(Chr(Random(26)+$41), Random(20)+8)+#13#10;
end;

var
  ThreadActive: Boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ThreadActive then exit;
  with TMyThread.Create(True) do begin
   FreeOnTerminate := True;
   Resume;
  end;
  ThreadActive := True;
end;

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

返信する