Скачать: CL | DM;

Почему срабатывает 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.042 c