procedure TForm1.SetEditRect;
var
R: TRect;
begin
with RichEdit1 do
begin
R := Rect(0, 0, ClientWidth-300, ClientHeight); //우측 여백을 조절합니다.
SendMessage(Handle, EM_SETRECT, 0, Longint(@R));
end;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
SetEditRect;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
SetEditRect;
end;
말씀하신 내용은 입력받는 라인이 특정 바이트수가 되었는지
확인하는 코드 보다는 우측 여백을 조절하시는 편이 좋을것 같습니다.
조금만 연구해보시면, 상하좌우 여백을 다 조절하실 수 있습니다.
예를 들면 아래처럼 우측여백을 조절해서 하시면 될거 같습니다.
즐거운 프로그래밍 하세요..
procedure TForm1.SetEditRect;
var
R: TRect;
begin
with RichEdit1 do
begin
R := Rect(0, 0, ClientWidth-300, ClientHeight); //우측 여백을 조절합니다.
SendMessage(Handle, EM_SETRECT, 0, Longint(@R));
end;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
SetEditRect;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
SetEditRect;
end;
end.