type
TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object;
에서 Shift, Alt, Ctrl키가 눌린 상태인지는 Shift값을 조사하여 알 수 있고,
F1키, 방향키는 Key변수의 값을 비교하여 알 수 있습니다.
예를 들어,
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssShift in Shift) then //Shift키가 눌린상태
...
if (Key = VK_F1) then //F1키가 눌렸을 때
...
if (Key = VK_LEFT) then //방향키에서 왼쪽화살표키가 눌렸을 때
...
if (Key = VK_TAB) then //Tab키
...
if (Key = VK_NUMPAD0) then //Numpad의 '0' 키
...
end;
VK_F1, VK_LEFT등은 Windows에 정의되어 있습니다.
도움이 되셨길 바라면서..
type
TKeyEvent = procedure (Sender: TObject; var Key: Word; Shift: TShiftState) of object;
에서 Shift, Alt, Ctrl키가 눌린 상태인지는 Shift값을 조사하여 알 수 있고,
F1키, 방향키는 Key변수의 값을 비교하여 알 수 있습니다.
예를 들어,
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssShift in Shift) then //Shift키가 눌린상태
...
if (Key = VK_F1) then //F1키가 눌렸을 때
...
if (Key = VK_LEFT) then //방향키에서 왼쪽화살표키가 눌렸을 때
...
if (Key = VK_TAB) then //Tab키
...
if (Key = VK_NUMPAD0) then //Numpad의 '0' 키
...
end;
VK_F1, VK_LEFT등은 Windows에 정의되어 있습니다.
도움이 되셨길 바라면서..