入力を受け取りについて

解決

（’＿’） 2005-12-21 21:17:13 No: 19367 IP: 192.*.*.*

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

りおりお 2005-12-21 22:21:49 No: 19368 IP: 192.*.*.*

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

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 14:12:21 No: 19369 IP: 192.*.*.*

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

編集削除