掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
richeditを完全に消去するには？ (ID：13552)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
まず、このソースを見てください。 ---------------------------- procedure TForm1.Button1Click(Sender: TObject); begin richedit2.Lines.Add(richedit1.Lines.Text); richedit1.Lines.Clear; end; procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then Button1Click(Sender); end; ---------------------------- form1にはRichEditが2つとButtonが1つあります。 RichEdit1の内容をRichEdit2に追加して行くものなのですが、RichEdit1上でEnterを押したとき、RichEdit1はClearされているはずなのに、1つ改行されてしまいます。 Enterを押したとき、完全にRichEdit1を消去するにはどうしたらいいでしょうか。 また、RichEditの1文字目にフォーカスを持ってくる方法、RichEditの最後にフォーカスを持ってくる方法を教えてもらえたら幸いです。 どなたかご教授おねがいします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.