[개발/delphi] 컨트롤 사이를 움직이는 방향키

[개발/delphi] 컨트롤 사이를 움직이는 방향키

Edit 컨트롤에서 UP, DOWN키는 사용되지 않는다. 필드 사이를 이동할 때도.
KeyPreview 프로퍼티를 이용하여 OnKeyDown 이벤트에서 코드로 조작할 수 있다.

~~~~~~~~~~~~~~~~~~~~~~~~~

procedure TForm1.FormKeyDown(

     Sender : TObject; 

     var Key: Word;

     Shift : TShiftState

   ) ;

var

   Direction : Integer;

begin

   Direction := -1;

   case Key of

     VK_DOWN, VK_RETURN : Direction := 0; {Next}

     VK_UP : Direction := 1; {Previous}

   end;

   if Direction <> -1 then

   begin

     Perform(WM_NEXTDLGCTL, Direction, 0) ;

     Key := 0;

   end;

end;

~~~~~~~~~~~~~~~~~~~~~~~~~