Нужен компонент для перехода по полям с помощью Enter

← →
EdSl (2003-02-24 19:06) [0]

Ищу компонент, который при помещении на форму позволяет осуществлять переход по полям с помощью клавиши Enter. Форм и полей много, писать обработчики события нажатия на клавишу Enter - трудоемко... Подскажите - где найти, please...

← →
Guerrillero © (2003-02-24 19:27) [1]

SelectNext и никаких компонентов не надо

← →
Романов Р.В. © (2003-02-24 19:27) [2]

$800

← →
Andrey V. (2003-02-24 21:42) [3]

Я обхожусь

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) then begin
Key:=#0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;

и , конечно , KeyPreview=True;

← →
EdSl (2003-02-25 17:38) [4]

Большое спасибо всем за советы! :-)
А насчет $800 не совсем понял. Это шутка или предложение заработать?

← →
tv © (2003-02-25 18:25) [5]

dxForumLibrary - по-моему так пишется. там есть компонент dxfQuickType. он позволяет по стандартным компонентам переходить по Enter-y

Я пользуюсь таким способом
procedure TForm1.AllNext(Sender: TObject;var Key: Char);
begin
if Key = #13 then begin
Form1.SelectNext(Sender as TWinControl,true,true);
key:=#0;
end;
end;
Что по моему одно и тоже с выше означенным примером

← →
Exp (2003-02-27 20:17) [7]

Автор: Khaled Shagrouni

procedure Tform1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ACtrl: TWinControl;
begin
if key = 13 then
begin
ACtrl := ActiveControl;
if ACtrl is TCustomMemo then exit;
repeat
ACtrl:= FindNextControl(ACtrl,true,true,false);
until (ACtrl is TCustomEdit) or
(ACtrl is TCustomComboBox) or
(ACtrl is TCustomListBox) or
(ACtrl is TCustomCheckBox) or
(ACtrl is TRadioButton);

ACtrl.SetFocus ;
end;
end;

Не забудьте установить свойство формы KeyPreview в true.

← →
Eugene1501 (2003-02-27 20:36) [8]

Создаем форму, обрабатывем там KeyDown как писали выше. Потом все формы проекта наследуем от этой и получается, что код пишемодин раз, а работает во всех формах.

Нужен компонент для перехода по полям с помощью Enter Найти похожие ветки