{Form上にあるTabStop=Trueに設定させたコンポーネントをTabOder順にUpDown
キーでフォーカスを移動する。(特にTEditで有効)}
//FormのKeyPreviewをTrueに設定しておく事
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_DOWN:
       PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);

    VK_UP:
        PostMessage(Handle, WM_NEXTDLGCTL, -1, 0);
  end;
end;

                              97/10/19(Sun) 10:35am  BYI11634 MOMO_P

Original document by MOMO_P          氏 ID:(BYI11634)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。