Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
ВнизНужен компонент для перехода по полям с помощью 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
← →
phantom2040 (2003-02-26 09:02) [6]Я пользуюсь таким способом
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 как писали выше. Потом все формы проекта наследуем от этой и получается, что код пишемодин раз, а работает во всех формах.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.10;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c