掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
スクロール中に最後の行に表示させるには? (ID:25751)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.