[질문] F2, F4,...F9평션을 사용할려구 했는데..왜 않먹내요..???
procedure TNS_NS012F.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Case key of
VK_F2 :if btn_insert.enabled = true then // 입력하기
btn_insertClick(Sender);
VK_F4 :if btn_delete.enabled = true then // 삭제하기
btn_deleteClick(sender);
VK_F5 :if btn_save.enabled = true then // 저장하기
btn_saveClick(Sender);
VK_F6 :if btn_cancel.enabled = true then // 취소하기
btn_cancelClick(sender);
VK_F9 :if btn_exit.enabled = true then // 종료하기
btn_exitClick(Sender);
end;
end;
FormKeyDown 이벤트에다가 이렇게 했는데...
왜 않되는지 이유를 모르겠네요...
알려주시면 대단히 감사하겠습니댜.
> [질문] F2, F4,...F9평션을 사용할려구 했는데..왜 않먹내요..???
>
> procedure TNS_NS012F.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> Case key of
> VK_F2 :if btn_insert.enabled = true then // 입력하기
> btn_insertClick(Sender);
> VK_F4 :if btn_delete.enabled = true then // 삭제하기
> btn_deleteClick(sender);
> VK_F5 :if btn_save.enabled = true then // 저장하기
> btn_saveClick(Sender);
> VK_F6 :if btn_cancel.enabled = true then // 취소하기
> btn_cancelClick(sender);
> VK_F9 :if btn_exit.enabled = true then // 종료하기
> btn_exitClick(Sender);
> end;
> end;
>
> FormKeyDown 이벤트에다가 이렇게 했는데...
> 왜 않되는지 이유를 모르겠네요...
> 알려주시면 대단히 감사하겠습니댜.
안냐세영 UserSpace임덩.
이유는 이러합니덩.
폼위에 있는 다른 Component가 이벤트를 먼서 사용하여서 그렇습니다.
하지만 해결책이 없는건 아닙니덩.
Form에 보면 KeyPreview라는 속성이 있는데 Default값은 False로 되어
있습니다. 이것을 True로 하면 최초 Key Event가 발생하였을때,
여기를 거처서 가게 됩니다. 그래서 Funtion key envent를 처리 할수 있습니다.
날씨가 많이 추우니 감기 조심하시구여...
그럼 20000.