入力を受け取りについて

解決

（’＿’） 2005-12-22 06:17:13 No: 19367

すみませんが、
RichEdit上で、現在いる行の入力文字を受け取る方法ってないでしょうか？
お願いします！！

りおりお 2005-12-22 07:21:49 No: 19368

こんな感じです。適当なイベントハンドラにつかってください。

procedure TForm1.RichEdit1Change(Sender: TObject);
var
  i: integer;
begin
  i := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0);
  Label1.Caption := IntToStr(Length(Richedit1.Lines[i]));
end;

（’＿’） 2005-12-22 23:12:21 No: 19369

使わせていただきました！！
そして、実行してみたら、出来ましたー！！
ありがとうございます（^v^)v