Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[5425] [답변] QET33/ 디시 질문,, 키보드 제어..
zpdspf1 [ ] 1326 읽음    1998-12-25 22:20
안녕하세요. 델파이 담당 댁스텁니다... 오랜만에 답변을 쓰는 것 같군요.

일단 TAB키가 눌린 것처럼 동작할 프로그램의 핸들을 얻어야 합니다.

FindWindow(), FindWindowEx()함수를 이용하여 대상 윈도우의 핸들을

얻습니다. (함수의 사용법은 도움말을 참고하세요.)

그리고 이벤트가 발생했을 때 다음처럼 하시면 됩니다.

즉, 대상 윈도우에 탭키가 눌렸다는 메시지를 보내는 겁니다.

     PostMessage(handle, WM_KEYDOWN, VK_TAB, 0);
          (여기서 handle은 대상 윈도우의 핸들입니다.)

참고로 저는 프로그램에서 버튼이 눌리는 이벤트가 발생하면 윈도우의

기본 프로그램인 메모장에 탭키를 눌린 것처럼 동작하게 해보았습니다.

procedure TForm1.Button1Click(Sender: TObject);
var
   h: HWND;
begin
     h := FindWindowEx(FindWindow('Notepad', nil), 0, 'Edit', nil);
     PostMessage(h, WM_KEYDOWN, VK_TAB, 0);
end;        

위 프로그램을 실행하기 전에 먼저 메모장을 실행해야겠죠....

그럼 참고하세요....


+ -

관련 글 리스트
5425 [답변] QET33/ 디시 질문,, 키보드 제어.. zpdspf1 1326 1998/12/25
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.