Почему срабатывает 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 вроде должен срабатывать после нажатия каждой клавиши. Или нет?

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.

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