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

Обработка нажания на клавишу Enter   Найти похожие ветки 

← →
Space   (2003-05-13 10:05) [0]

Подскажите, люди добрые, как сделать так, чтобы по нажатию на клавишу Enter в обычном Edit`e выполнялось то или иное действие.

---

← →
LexusR ©   (2003-05-13 10:11) [1]

в свойствах формы поставьте KeyPreview = true
и определите обработчик события формы OnKeyDown

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
Edit1.Text := "Нажата клавиша Return";
end;
end;


---

← →
dtrn   (2003-05-13 10:36) [2]

в свойствах формы поставьте KeyPreview = false
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
ShowMessage("Нажата клавиша Return");
end;

---

← →
LexusR ©   (2003-05-13 11:34) [3]

разница двух предложений в том
при каком условии нужно отлавливать ENTER
если после ввода в конкретный Edit то естественно
нужно как предложил dtrn
а если по Enter-у нужно обрабатывать какие-либо действия
для Edita(ов) не имеющих фокуса то нужно действовать
по первому предложению :)))

---

← →
ghg ©   (2003-05-13 14:16) [4]

так может просто обработать OnEnter в Edit"е
точнее сформулировать надо

---

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

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



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