Как перейти к следующему элементу управления внутри рамки?

Question

В одной форме моего приложения мы добавляем наборы данных, добавляя к форме фреймы. Для каждого фрейма мы хотим, чтобы мы могли перейти от одного элемента управления редактирования (Express Express Editors) к следующему, нажав клавишу Enter. До сих пор я пробовал четыре разных метода в событиях KeyPress и KeyUp моего контроля.

1. SelectNext(TcxCurrencyEdit(Sender), True, True); // also base types attempted

2. SelectNext(Sender as TWinControl, True, True);

3. Perform(WM_NEXTDLGCTL, 0, 0);

не

4. f := TForm(self.Parent); // f is TForm or my form c := f.FindNextControl(f.ActiveControl, true, true, false); // c is TWinControl or TcxCurrencyEdit if assigned(c) then c.SetFocus;

Ни один из этих методов работы в Delphi 5. Может ли кто-нибудь привести меня к работе? Благодарю.

Answer 1

Это работает в Delphi 3, 5 и 6: KeyPreview собственности

установленной формы к Правда.

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); 
begin 
    If (Key = #13) then 
    Begin 
    SelectNext(ActiveControl as TWinControl, True, True); 
    Key := #0; 
    End; 
end; 

Answer 2

Я нашел один старый проект, который ловит сообщение CM_DIALOGKEY при нажатии пользователем. Введите ключ, а затем он запустит VK_TAB ключ. Он работает с несколькими различными элементами управления.

interface 
... 
    procedure CMDialogKey(var Message: TCMDialogKey);message CM_DIALOGKEY; 

implementation 
... 

procedure TSomeForm.CMDialogKey(var Message : TCMDialogKey); 
begin 
    case Message.CharCode of 
    VK_RETURN : Perform(CM_DialogKey, VK_TAB, 0); 
    ... 
    else 
    inherited; 
    end; 
end; 

Answer 3

Вы можете разместить TButton на форме, сделать ее небольшой и скрыть ее под другим контролем. Установите свойство по умолчанию истина (что делает его получение Введите ключ) и поместите следующий код в событие OnClick:

SelectNext(ActiveControl, true, true); 

Answer 4

Событие onKeyPress является тригером, как любая другая форма.

Проблема заключается в том, что выполнение процедуры (wm_nextdlgctl, 0,0) не работает внутри кадра.

Вы должны знать активный элемент управления для правильного события.

procedure TFrmDadosCliente.EditKeyPress(Sender: TObject; var Key: Char); 
var 
    AParent:TComponent; 
begin 
    if key = #13 then 
    begin 
    key := #0; 

    AParent:= TComponent(Sender).GetParentComponent; 

    while not (AParent is TCustomForm) do 
     AParent:= AParent.GetParentComponent; 

    SelectNext(TCustomForm(AParent).ActiveControl, true, true); 
    end; 
end;