안녕하세요?

고드름 김정입니다.



테스트 해보니 특정키값에서 동작하지 않는 경우가 있었습니다.

그래서 수정합니다.



var

Key : Cardinal;

begin

Key := vk_delete;



PostMessage( Edit1.Handle, WM_KEYDOWN, Key, MakeLong( 0, Key ) );

PostMessage( Edit1.Handle, WM_KEYUP, Key, MakeLong( 0, Key or $C000 ) );

end;



> 이렇게 해보세요.



> 각 키의 KeyDown, KeyUp 이벤트를 보내는 겁니다. (예제는 Up 키입니다. )



> SendMessage( Eid.Handle, WM_KEYDOWN, Word( VK_UP ), LongInt( VK_UP ) );

> SendMessage( Eid.Handle, WM_KEYUP, Word( VK_UP ), LongInt( VK_UP ) );



> 그럼.







김상범 wrote:

> Bitbutton을 눌렀을때 키보드의 backspace, delete, 상하좌우key, pageup,pagedown 의

> 작업을 할수 있도록 구현을 하고 싶습니다.

> 고수님들의 많은 도움을 바라겠습니다..

>

> SendMessage(Eid.Handle, WM_CHAR, 8, 0);

>

> 위와 같은 구현으로 backspace의 구현은 bitbutton에 할 수 있었거든요.

> 그런데

>

> SendMessage(Eid.Handle, WM_CHAR, 46, 0);

>

> 하면 delete의 구현이 될줄 알고 했더니 '.'가 화면에 나타나더군요...

>

> 많은 답변들 기다리겠습니다.

>

> 그럼 다들 정말로 수고하십시요....