mc킴 님이 쓰신 글 :
: 안녕하세요.
: TDBMemo내에 엔터키를 입력하지 못하도록 처리하고 싶습니다.
: 아래와 같이 처리해봤습니다만, 에디트박스내에 엔터키는 그대로 적용이 되어 줄바꿈문자가 들어갑니다.
: 다른 방법이 있을까요?
: if (Key = VK_RETURN) then Key := #0;
DBMemo같은 경우는 사용해 본 적이 없어서 잘 모르겠고
일반 TMemo에서 OnKeyPress를 아래와 같이 해주니 줄바꿈이 먹지 않네요.
참고하시면 될 듯 합니다..
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if ( Key=Char( $0D ) ) OR ( Key=Char( $0D ) ) then
begin
Key := Char( $0 );
end;
end;
|