Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.57 MB
Время: 0.038 c
1-29797
Gonta
2003-02-27 17:51
2003.03.10
Работа с консольными приложениями


14-30038
Igor_thief
2003-02-24 19:37
2003.03.10
Папки и файлы


1-29838
V-Isa
2003-02-28 11:45
2003.03.10
Определение компонента, над которым расположен курсор мыши


4-30177
maxim2
2003-01-20 13:21
2003.03.10
Подскажите что в этом коде не так.


1-29939
Hill1
2003-02-27 10:32
2003.03.10
DLL + TWinControl + THint





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский