Delphi : TFrame에서 Enter 키가 Tab 키로 작동하는 방법

Question

프레임과 일부 컨트롤 (편집, 버튼 등)이 있습니다. 프레임 컨트롤의 어느 곳에서나 ENTER 키를 눌러 가로 채고 Tab 키로 변환하는 방법 (SHIFT 상태 고려)?

Answer 1

다음은 을 입력하면을 누르면 다음 컨트롤로 이동할 수있는 프레임의 메시지를 처리하는 몇 가지 예제 코드입니다. 이 샘플에서는 키를 수정하지 않으므로 키가됩니다. 대신 다음 제어를 선택하고 키 다운 메시지의 추가 처리를 방지합니다.

코드를 추가로 조정해야 할 수도 있습니다. 하나의 컨트롤에 실제로 키를 입력해야하는 경우 (예 : TMemo) 예외를 추가해야합니다. 두 번째로, 네비게이션은 프레임에 래핑됩니다. 즉, 마지막 프레임 컨트롤 이후에 첫 번째 프레임 컨트롤에 포커스가 설정됩니다. 폼이 아닌 프레임 컨트롤입니다. 이 경우 메시지 반환을위한 조건을 추가 할 수 있습니다. 일부 조건에서 기본 처리를 원하면 다른 것을하지 않고도 상속을 호출하십시오.

type 
    TFrame2 = class(TFrame) 
    ... 
    protected 
    procedure CMChildKey(var Message: TCMChildKey); message CM_CHILDKEY; 
    end; 

.. 

procedure TFrame2.CMChildKey(var Message: TCMChildKey); 
begin 
    if Message.CharCode = VK_RETURN then begin 
    SelectNext(Screen.ActiveControl, not Bool(GetKeyState(VK_SHIFT) and $80), True); 
    Message.Result := 1; 
    end else 
    inherited; 
end; 

Answer 2

CM_DIALOGKEY의 처리를 수정하면됩니다.

글쎄,이 기능과 작동 방식은 매우 분명합니다.

프레임에서이를 수행하는 방법을 문의하십시오. 프레임에서 대화 상자 탐색을 처리하는 것은 불가능합니다. 그것은 상당히 명백한 이유 때문에 양식에 의해 수행됩니다. 따라서 프레임을 호스팅하는 형식으로이 코드를 연결해야합니다.

메모 제어의 경우 이는 아무 효과가 없습니다. ENTER을 줄 바꿈 입력으로 처리합니다. 그러나 나는 그것이 당신이 원하는 것이라고 생각합니다. 그렇지 않으면 메모 컨트롤을 완전히 사용할 수 없게됩니다.

Answer 3

내가 많이 있다고 생각 "드롭 잊지"구성 요소가 예를 들어 http://Torry.net

에 예를 들어, 그것을 할, 이러한 구성 요소는 RxLib의 일부 나중에 TJvEnterAsTab와 JediVCL에 inherted했다 이름.