답변하는 사람들은 전혀 급하지 않느뎅..^^
keypreview를 true로 하시구요 프로퍼티에서 해도 되구 직접 코딩하셔도 되구요 그리고 event에 들어가서 keydown메서드에서 아래와 같이 코딩하시면 됩니다. 전 일단 메세지창으로 띄었는뎅 머..라벨로 찍으셔도 되구요.
그럼..즐프하세요
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_f3 then
showmessage('안녕하세요');
end;
답변하는 사람들은 전혀 급하지 않느뎅..^^
keypreview를 true로 하시구요 프로퍼티에서 해도 되구 직접 코딩하셔도 되구요 그리고 event에 들어가서 keydown메서드에서 아래와 같이 코딩하시면 됩니다. 전 일단 메세지창으로 띄었는뎅 머..라벨로 찍으셔도 되구요.
그럼..즐프하세요
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := true;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_f3 then
showmessage('안녕하세요');
end;