小键盘输入

 在输入密码的时候要求小键盘输入，如何才能做到这一点？

(没有验证 )

.h
private:
        void   __fastcall   NewWndProc(TMessage&   Message);

.cpp
TWndMethod       OldWndProc;
//---------------------------------------------------------------------------
__fastcall   TForm1::TForm1(TComponent*   Owner)
                :   TForm(Owner)
{
        OldWndProc   =   Edit1-> WindowProc;
        Edit1-> WindowProc   =   NewWndProc;
}
//---------------------------------------------------------------------------

void   __fastcall   TForm1::NewWndProc(TMessage&   Message)
{
        int     nVirtKey;
        if   (Message.Msg==WM_CHAR)
        {
                return;
        }
        if   (Message.Msg==WM_KEYDOWN)
        {
                nVirtKey   =   (int)   Message.WParam;
                if(nVirtKey> =96&&nVirtKey <106)
                {
                        Edit1-> Text=Edit1-> Text+AnsiString(nVirtKey-96);
                        Edit1-> SelStart=Edit1-> Text.Length();
                }
                else
                {
                        return;
                }
        }
        OldWndProc(Message);
}