Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Передача фокуса компоненту   Найти похожие ветки 

 
Tempo   (2004-07-03 16:00) [0]

Только заметил одну неприятную вещь, от которой не могу избавиться.
Есть на форме компонент, скажем Edit1, и есть еще одна кнопка. Нужно при нажатии кнопки Enter на компоненте Edit1 передать фокус кнопке.
Пишу:
procedure Tadd_project.edit1KeyDown(Sender: TObject;
 var Key: Word; Shift: TShiftState);
begin
if Key=13 then FindNextControl(Sender as TWinControl,true,true,false).SetFocus;
end;

Все работает, НО  при нажатии Enter издается неприятный звук (щелчек, как при ошибки Windows). Как от этого избавиться?
И еще как при нажатии кнопки ESC на любом компоненте формы, чтобы она закрывалась?


 
Семен Сорокин ©   (2004-07-03 16:23) [1]

при нажатии Enter издается неприятный звук (щелчек, как при ошибки Windows). Как от этого избавиться?
if Key=13 then FindNextControl(Sender as TWinControl,true,true,false).SetFocus;
Key := 0
И еще как при нажатии кнопки ESC на любом компоненте формы, чтобы она закрывалась?
Form.KeyPreview = true
в onKeyDown
if Key = VK_ESCAPE then
Close
или если есть кнопка отвечающая за закрытие - выставить у нее св-во Cancel = true


 
TUser ©   (2004-07-03 16:51) [2]

или actions


 
Tempo   (2004-07-03 17:01) [3]

Огромное спасибо, как все оказалось просто. Я стормозил.



Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
1-1088859661
CyberSpy
2004-07-03 17:01
2004.07.18
Listview


3-1088264701
YurikGL
2004-06-26 19:45
2004.07.18
Динамическое создание таблиц


6-1084747162
Алекс А
2004-05-17 02:39
2004.07.18
Как сделать такое же меню Кодировка как в Интернет Эксплорере?


1-1088800816
xor
2004-07-03 00:40
2004.07.18
как програмно снять напряжение с USB порта


1-1089199009
Trogel
2004-07-07 15:16
2004.07.18
Как создать форму вроде Object Inspector?