예제로 메모컴포넌트에서 del를 누르면 뒤 한자만 지워지나
Ctrl+Del 키가 누르면 뒤의 모든 내용이 한번에 지원지는겁니다.
//Ctr+del를 누른 효과 만들기
procedure TForm1.Button1Click(Sender: TObject);
var
pKeyboardState : ^TKeyboardState;
begin
New(pKeyboardState);
GetKeyboardState(pKeyboardState^); //초기 상태 구함
pKeyboardState^[VK_CONTROL] := $80; //Ctr키를 누를 상태로 설정
SetKeyboardState(pKeyboardState^);
SendMessage(Memo1.Handle,WM_KEYDOWN,VK_DELETE,0); //Ctr+del를 누른 효과
Ctrl+Del 키가 누르면 뒤의 모든 내용이 한번에 지원지는겁니다.
//Ctr+del를 누른 효과 만들기
procedure TForm1.Button1Click(Sender: TObject);
var
pKeyboardState : ^TKeyboardState;
begin
New(pKeyboardState);
GetKeyboardState(pKeyboardState^); //초기 상태 구함
pKeyboardState^[VK_CONTROL] := $80; //Ctr키를 누를 상태로 설정
SetKeyboardState(pKeyboardState^);
SendMessage(Memo1.Handle,WM_KEYDOWN,VK_DELETE,0); //Ctr+del를 누른 효과
pKeyboardState^[VK_CONTROL] := $0; //Ctr키를 누를 상태해제
SetKeyboardState(pKeyboardState^);
end;
hsr////////////////////////////