Virtual Keys

[LoL]

hi

also so nicht?:

Delphi-Quellcode:

  
if Not ( Key in [ '0'..'9',#8, #9 ,#13, #26, #28 ] ) then
  Key    := #0;

  Case Key of
    #13 :   { #13 = Enter }
        Begin
          Key := #0;
          PostMessage( Handle, WM_NextDlgCtl, 0, 0 ); {Win32 API}
        End;

   #26 :   { #26 = KEY - UP }
        Begin
          PostMessage( Handle, WM_NextDlgCtl, 1, 0 ); {Win32 API}
          Exit;
        end;

   #28 :   { #28 = KEY - DOWN }
        Begin
          PostMessage( Handle, WM_NextDlgCtl, 0, 0 ); {Win32 API}
          Exit;
        end;
  end; { Case of.... }