![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Почему срабатывает KeyDown
dido © (2004-06-27 17:50:00)Почему срабатывает KeyDown после введения неполной даты (четыре цифры)? Неудобно когда нечаяно нажмешь Enter.
Cardinal (2004-06-27 19:56:00) [1]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.
begin...end (2004-06-27 19:07:00) [2]Так OnKeyDown вроде должен срабатывать после нажатия каждой клавиши. Или нет?
dido (2004-06-27 18:59:00) [3]Введения в Edit.
begin...end (2004-06-27 17:52:00) [4]Введения куда?