Форум: "Основная";
Текущий архив: 2004.07.18;
Скачать: [xml.tar.bz2];
ВнизПередача фокуса компоненту Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c