Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Enter как Tab [D5, Win95/98]

Jack Frost © (2002-11-15 14:47:00)
Добрый день!

Мне нужно реализовать сабжевый механизм перемещения фокуса по контролам.
Я нашел один, но он реализован для контролов, родителем которых является
форма. Там используется метод FindNextControl. Если контрол расположен на
каком-то другом контейнере, то обработчик его обходит.

Помогите, пожалуйста!

Заранее спасибо!

Vlad1 (2002-11-22 21:59:00) [1]
Sorry,
1.Form1.KeyPreview:=True;
2.procedure Tform1.FormKeyPress(Sender:TObject;var Key:Char);
if Key=#13 then
begin
Key:=#0;
Perform(CM_DialogKey,VK_TAB,0);
end;
end;

Vlad1 (2002-11-22 21:58:00) [2]
1. Form1.KeyPreview:=True;
2. procedure Tform1.FormKeyPress(Sender:TObject;var Key:Char); if Key=#13 then begin Key:=#0; Perform(CM_DilogKey,VK_TAB,0); end; end;

Manic Mechanic (2002-11-15 15:11:00) [3]
По-моему так, причем работают и стрелки, а Esc закрывает форму

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var CtlDir: word;
begin
if(Key in [VK_UP, VK_DOWN, VK_RETURN])then begin
if Key=VK_UP then CtlDir := 1 else CtlDir := 0;
SendMessage(Handle, WM_NEXTDLGCTL, CtlDir, 0);
Key := 0;
end else if(Key=VK_ESCAPE)then begin
Key := 0;
Close;
end;
end;
//---------------------------------------------------------------

Игорь Шевченко (2002-11-15 15:09:00) [4]
Способы:
1) положить на форму компонент TAction с ShortCut = Enter и в ActionExecute вызывать SelectNext.
2) Переписать у формы метод обработки сообщения CM_DIALOGKEY.
3) Поставить Hook WH_GETMESSAGE и для нужных адресатов перекодировать сообщения WM_KEYDOWN и WM_KEYUP (наиболее универсальный способ)

С уважением,

Calm (2002-11-15 15:07:00) [5]

> Способ верный, но мутный.

Это я о своем способе, а не о предложенном stone.
Когда писал его сообщения не видел.

> if key = #13 then key := #9;

Это же нужно для каждого компонента так прописывать, неудобно :(
Хотя в общем нормальный способ.

Calm (2002-11-15 15:05:00) [6]
Способ верный, но мутный.
Итак...
1. Создаем некий список, в котором регистрируем все контролы, фокум между которыми должен перемещаться по Enter, а не по Tab.
Причем контролы в списке регистриуются (ну заносятся просто) в том порядке, в каком должен перемещаться фокус. Это делается в OnShow формы.
2. Всем контролам присваивается новый обработчик события OnKeyPress, в котором снала проверяется нажатие на Enter, а затем если нажат не Enter, то выполнять то событие, которое было подвязано в design-time, если таковое было.

На первый взгляд, заморочено, но на самом деле способ достаточно неплохой.

stone (2002-11-15 14:56:00) [7]
OnKeyPress

if key = #13 then key := #9;

Skier (2002-11-15 14:48:00) [8]
>Jack Frost
А TForm.KeyPreview := True не поможет ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »