아래와 같이 하면
질문 1]
"ㅁ", "ㅠ" 이케 찍히는데여 이것을 "뮤"라고 찍고싶거든여...
관련글도 많은거 같고 훅관련 팁도 있는데...
소스 분석이 여의치않아서 말이져 ...ㅜㅡ;
질문 2]
두번째 문제는 포커스가 있는 TEdit의 경우에는 ㅁ라는 글은 찍히지만,
TLabel의 경우는 포커스도 없어서 아예 찍지도 못하고 있습니다.
포커스없는 라벨의 경우는 한글을 어케 입력하는지 조언 부탁드립니다.
-----------------------------------------------------------------------------
procedure TForm1.Label1Click(Sender: TObject);
var ScanCodeA: Byte;
begin
ScanCodeA := MapVirtualKey(Ord('A'),0);
KeyBd_Event(Ord('A'),ScanCodeA,0,0);
end;
procedure TForm1.Label2Click(Sender: TObject);
var ScanCodeB: Byte;
begin
ScanCodeB := MapVirtualKey(Ord('A'),0);
KeyBd_Event(Ord('B'),ScanCodeB,0,0);
end;