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

Вниз

Почему срабатывает KeyDown   Найти похожие ветки 

← →
dido   (2004-06-27 17:50) [0]

Почему срабатывает KeyDown после введения неполной даты (четыре цифры)? Неудобно когда нечаяно нажмешь Enter.

---

← →
begin...end ©   (2004-06-27 17:52) [1]

Введения куда?

---

← →
dido   (2004-06-27 18:59) [2]

Введения в Edit.

---

← →
begin...end ©   (2004-06-27 19:07) [3]

Так OnKeyDown вроде должен срабатывать после нажатия каждой клавиши. Или нет?

---

← →
Cardinal ©   (2004-06-27 19:56) [4]

KeyDown срабатывает при нажатии клавиши в поле редактирования
(т.е. когда клавиша уже вдавлена). Если тебе надо выполнять что-то по нажатию Enter, то (в полной дате ведь 9 знаков)

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if (key=13)and(length(edit1.Text)=9) then {действия}
end;

А лучше для этого дела используй MaskEdit.

---

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

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

Наверх

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