掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
richeditを完全に消去するには？ (ID:13556)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じです。 procedure TForm1.Button1Click(Sender: TObject); begin if Length(richedit1.Text) = 0 then exit; richedit2.Lines.Add(richedit1.Lines.Text); richedit2.Lines.Delete(richedit2.Lines.Count-1); richedit2.Perform(EM_SCROLLCARET,0,0); richedit1.Lines.Clear; end; procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin Button1Click(Sender); key := #0; // これを追加 end; end; // キャレットを先頭に持っていってスクロール procedure TForm1.Button2Click(Sender: TObject); begin richedit2.SelStart := 0; richedit2.Perform(EM_SCROLLCARET,0,0); richedit2.SetFocus; end; // キャレットを末尾に持っていってスクロール procedure TForm1.Button3Click(Sender: TObject); begin richedit2.SelStart := Length(richedit2.Text); richedit2.Perform(EM_SCROLLCARET,0,0); richedit2.SetFocus; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.