|
혹시 참고가 될까나 재답변 드리네요~
제가쓰는 Enter키와 펑션키 처리부분입니다.
참고하세요~
먼저, Form의 KeyPreview를 True로 하셔야합니당~
밑에 FormKeyPress함수 처리는 Enter키 처리시에 띵띵 에러음을 막아주는 처리입니다.
그럼 .. 허접-개박살
//---------------------------------------------------------------------------
void __fastcall TFormSell::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Key == VK_RETURN) {
if(GetKeyState(VK_SHIFT) < 0) SelectNext(ActiveControl, false, true);
else SelectNext(ActiveControl, true , true);
}
if(GetKeyState(VK_SHIFT) >= 0 && GetKeyState(VK_MENU) >= 0 && GetKeyState(VK_CONTROL) >= 0) {
switch(Key) {
case VK_F1 : break;
case VK_F2 : Button1Click(Button1); Key = 0; break;
case VK_F3 : break;
case VK_F4 : break;
case VK_F5 : break;
case VK_F6 : break;
case VK_F7 : break;
case VK_F8 : break;
case VK_F9 : break;
case VK_ESCAPE: Button2Click(Button2); Key = 0; break;
case VK_DELETE: break;
default : break;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TFormSell::FormKeyPress(TObject *Sender, char &Key)
{
if(Key == VK_RETURN) Key = 0;
}
//---------------------------------------------------------------------------
에이탑 님이 쓰신 글 :
: 수야 님이 쓰신 글 :
: : 수얍니다.
: :
: : 책에서 발췌합니다.
: :
: : 키프레스 이벤트에 추가하세요
: :
: : if(Key == VK_RETURN)
: : {
: : Key = 0; // 입력키값 무시 NULL로 해도됨
: : Perform(WM_NEXTDLGCTL,0,0); // 다음 컨트롤로 이동
: : }
: :
: : 즐프하세요
: :
: : 에이탑 님이 쓰신 글 :
: : : 현재 DBGrid상에서 Enter Key를 Tab Key처럼 작동하게 만들려고 합니다.
: : :
: : : 전에 팁란에 올라왔던것 같은데
: : :
: : : 지금 찾아보니 없네요~ 쩝~
: : :
: : : 미리 감사드리구요
: : :
: : : 즐거운 하루되셔요~
:
:
: 에구~ 벌써 답변이 올라왔군요~
:
: 정말 감사합니다.
:
:
|