Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Вниз

SpinEdit по Enterу   Найти похожие ветки 

← →
AL2002   (2002-08-19 19:40) [0]

Хочу чтобы, набрав, значение в SpinEdite и нажав Enter сработало какое-то событие. Бьюсь-бьюсь – и нифига, только бипает.
Поставил KeyPreview на форме – ловит #13, но если не #13, то не даёт ввести значения (опять, сволочь, бипает). Как?

---

← →
alena.svt   (2002-08-19 22:08) [1]

Не поняла, но специально проверила без всяких KeyPreview

procedure TForm1.SpinEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
Showmessage("Enter")
end;

Все работает. Может где подвох.

---

← →
AL2002   (2002-08-19 22:20) [2]

>Не поняла, но специально проверила без всяких KeyPreview
Да, оно. Правда, я уже плюнул на этот спинэдит и вместо него юзаю простой людский эдит. Но спасибо. Я про кейдаун в спИне даже не подумал.

---

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

Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c