민 wrote:

> procedure TForm_main.Edit_messageKeyPress(Sender: TObject; var Key: Char);

> begin

> if (Key = 'enter') then showmessage('ttt');

> end;

>

> Edit box 에서 문자 입력 중 엔터키나 탭키 입력시 특정 행동을 하게끔 프로그램 하고 싶은데요 엔터키나 탭키 등 특정 구문은 어떻게 표시할 수 있을까요?



Enter key ....사용법



procedure TForm_main.Edit_messageKeyPress(Sender: TObject; var Key: Char);

begin

if key = #13 then begin

showmessage('ttt');

key := #00;

end;

end;



ex)

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

begin

if key = #13 then {눌려진 key가 enter key(#13)이면 edit2로 커서 이동}

begin

edit2.SetFocus;

key := #00;

end;

end;