델파이 다음 컨트롤 자동 선택하기

procedure TForm8.cxTextEdit2KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  case Key of

    VK_UP:

      begin

        PostMessage(GetParentForm(self).Handle, wm_NextDlgCtl, 1, 0);

        Key := 0;

      end;

    VK_DOWN:

      begin

        PostMessage(GetParentForm(self).Handle, wm_NextDlgCtl, 0, 0);

        Key := 0;

      end;

    VK_RETURN:

      begin

        PostMessage(GetParentForm(self).Handle, wm_NextDlgCtl, 0, 0);

        Key := 0;

      end;

  end;

end;