nektar wrote:

> 안녕하세요

> memo란에서 10자가 입력되면 자동으로 다음줄로 이동할수 있는방법?

> 두번째란에서도 10자가 입력되면 다음줄로 이동하고 싶은데....계속해서

> 혹시 아는분 계세요.



Memo 제어에 관한 다른 팁을 원하시면

제 홈페이지(http://myhome.shinbiro.com/~cozykyd/index.htm)의

"Delphi Tip" 에서 "Memo" 키워드로 검색해 보세요



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

Memo1: TMemo;

procedure Memo1KeyPress(Sender: TObject; var Key: Char);

procedure Memo1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;



const

MAX_ROW = 5; // 최대행수

MAX_COL = 25; // 최대컬럼수



var

Form1: TForm1;



implementation

{$R *.DFM}



// TMemo의 WordWrap 프로퍼티는 False 로 설정



procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

var

line, col: Integer;

begin

with Sender as TMemo do

begin

line := Perform(EM_LINEFROMCHAR, SelStart, 0);

col := SelStart - Perform(EM_LINEINDEX, line, 0);

if key = #8 then

begin

{ Do not allow backspace if caret is on first column and

deleting the linebreak of the line in front would result

in a line of more than MAX_COL characters. Damn inconvenient

for the user but specs are specs... }

if (col = 0) and (line > 0) then

begin

if (Length(lines[line])+Length(lines[line-1])) > MAX_COL then

Key := #0;

end; { If }

end { If }

else if key in [#13,#10] then

begin

{ Handle hard linebreaks via Enter or Ctrl-Enter }

if lines.count >= MAX_ROW then

begin

{ Max number of lines reached or exceeded, set caret

to start of next line or this line, if on the last. }

key := #0;

if line = (MAX_ROW-1) then

SelStart := Perform(EM_LINEINDEX, line,0)

else

SelStart := Perform(EM_LINEINDEX, line+1,0);

end; { If }

end { If }

else if Key >= ' ' then

begin

{ Do swallow key if current line has reached limit. }

if Length( lines[line] ) >= MAX_COL then

Key := #0;

end; { If }

end; { With }

if Key = #0 then

Beep;

end;



procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

line, col: Integer;

begin

if Key = VK_DELETE then

with Sender as TMemo do

begin

line := Perform(EM_LINEFROMCHAR, SelStart, 0);

col := SelStart - Perform(EM_LINEINDEX, line, 0);

if col = Length(lines[line]) then

if (line < (MAX_ROW-1)) and ((Length(lines[line]) + Length(lines[line+1])) > MAX_COL) then

begin

key := 0;

Beep

end;

end;

end;



end.