Q&A

  • Keydown이벤트발생에서
Form1에서 버튼을 클릭하면 Form2에 EDT_no라는 에디터 박스에서 엔터를 쳤을때와 같은 이벤트가 발생하게 하려고 합니다.

-Form2에 있는 KeyDown이벤트
procedure Form2.EDT_noKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then showmessage('엔터쳤냐?');
end;

-Form1에서 버튼을 클릭하면 Form2에 EDT_no라는 에디터 박스에서 엔터를 쳤을때와 같은 이벤트가 발생
Form2.EDT_noKeyDown(Sender,Key=VK_RETURN);
=>이렇게 했더니 error나네요. 어떻게 해야하나요?

부탁드립니다..ㅜ.ㅜ
2  COMMENTS
  • Profile
    너구리 2004.05.14 01:39
    Form1의 keydown 이벤트에서 아래처럼 넣어주시면 될거 같습니다.

    key := VK_RETURN;
    Form2.EDT_noKeyDown(Sender,key,Shift);


  • Profile
    메니아 2004.05.14 02:03
    답변 감사드립니다. ^^
    답변덕분에 해결했습니다.

                Key:=VK_RETURN;
                Shift:=[];
                Form2.EDT_noKeyDown(Sender,Key,Shift);
    이렇게 하니까 되네요 ^^
    Shift는 왜그런지 모르겠는데 디버깅해보니깐 []이것이 들어가 있어서
    넣어줬습니다. ^^
    감사합니다. ^^