해당 폼의 버튼 속성중이 Default 가 true로 되어있더군요.


제 친구중에 델파이의 거의 달인이 있는데.. 이 친구가 담방에 잡더군요.


아~ 제가 이렇게 무지합니다.

폼의 버튼 속성이 Default가 true이면 해당 폼의 Enter이벤트는

그리고 뛰어들어갑니다.

그럼.. 답변 주신분들 감사합니다

클클... 추카합다...
그런 일두 ^^

지나가던 얼큰입다. 잘 되는 데요???
KeyDown Event 에서 다음과 같이 하믄... 잘 올라오던디...
procedure TForm1.Edit11KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key = Word(#13) then ShowMessage('pressed');
end;
#10 은 안 먹구요... #13 은 잘 올라오는 데요...
그럼 오늘도 즐입다.

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if char(Key) = #13 Then
    ShowMessage('aa');
end;

혹은

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 Then
    ShowMessage('aa');
end;

해보시져 ~~~

답변 감사드립니다.

// -- 아래는 제가 작성한 소스 코드입니다.
        Enter 키를 제외한 다른 키들은 아래의 이벤트 핸들러 안으로 다 들어갑니다. 그러데 유독 Enter Key를 눌렀을 때만 안들어갑니다.
아예 그 안에서 if 문장 자체를 읽을 겨를도 없다는 것이죠. 그런데 다른 키는
안에서 처리가 가능합니다.


Form은 MDI Child 입니다.



procedure Tf_SA01.ed_searchNameKeyPress(Sender: TObject; var Key: Char);
var
   SearchText : string;
   SearchSQL : string;
begin

  if char(key) = #13 then
    begin

    if trim(ed_searchName.Text) = '' then
        begin
        ShowMessage('거래처 상호를 입력하세요');
        exit;
        end;

    Application.CreateForm(Tf_ClientView, f_ClientView);
    if f_ClientView.q_client.State <> dsInactive then
       f_ClientView.q_client.Close;
    f_ClientView.q_client.sql.clear;
    SearchSQL := ''; SearchText := '';    // 검색 변수 초기화
    SearchText := ed_searchName.text;
    SearchSQL := 'select * from tab_client where name like ';
    SearchSQL := SearchSQL + '''%' + SearchText + '%''';
    SearchSQL := SearchSQL + ' order by seq';
    f_ClientView.q_client.sql.add(SearchSQL);
    f_ClientView.q_client.Open;
    f_clientView.Tag := 1;
    f_clientView.ShowModal;

    end;

end;

윽... MDI child 에서두 잘 들어가 지는 데... 무엇이 다른지 모르겠군요...
테스트를 편하게 하기 위해서,
File->New->Other->Projects->MDI application 선택 후,
MDI Child 속성을 가지는 CHILDWIN unit에다가 TEdit 하나 넣구,
OnKeyDown, OnKeyPress 둘 다 테스트 해보았는 데 잘 올라옵니다.
답변에 달아놓은 그 코드 그대로 요...
(참고로 전 델파이 6 환경입니다.)
기본 설정에서 변경사항 없구요...
에공 이상하군요... 쩌비.. 도움이 안되서리 지송.

저도 델파이로 프로그램을 3년전부터 하고 있지만

이런 경우는 처음이네요...

아마도... 폼이 생성되면서 Enter Key값에 관한 이벤트가

TSender를 통해서 어디론가 떠돌아 댕기는 것 같아요..


대신에 Shift-Enter 값이 발생하면 정상적인 Enter 처럼 작동하네요..


아`` 괴롭슴다... 9월 초부터 이런 문제가 발생하다니...


암튼 답변을 주시는 분들 정말 감사합니다.. 바쁘실텐데..

테스트에 답변까지 주시니~~