Вопрос по использованию Enter вместо кнопки Опции

[1147]

В компонент Edit вводятся какие-то данные. Есть кнопка "Сохранить", после нажатия которой введенные данные сохраняются.
Как сделать чтобы вместо нажатия кнопки, заставить эту функцию выполнять кнопку Enter на клавиатуре?

[1147]

В событии onkeypress dbedita находится следующий код:

if key=#13 then bitbtn6.click;

Все, в dbedite больше ничего не изменено. Дальше, в bitbtn, на которую переключается фокус при нажатии Enter в событии onclick:

begin
activecontrol:=dbedit5;
activecontrol:=dbedit6;
activecontrol:=dbedit7;
activecontrol:=dbedit8;

if form5.xd.Modified then
form5.xd.Post;
dbedit5.SetFocus;
form5.xd.Insert;
Label1.Caption := IntToStr(xd.RecordCount);
end;

Сообщение отредактировано: 1147 - 30.06.2009 16:59