Реакция TEdit на нажание клавиш

← →
Draught © (2004-04-22 10:11) [0]

как сделать реакцию Edit на нажатие клавиши "Enter", например есть Edit1, нужно что бы при нажатии на клавишу "Enter" нажималась на форме кнопочка "Ок" - стандартная ситуация. Загвоздка в том, что я не могу найти в свойствах Edit что-нить типа onEnterClick

← →
[lamer]Barmaglot © (2004-04-22 10:23) [1]

Используй onKeyUp

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=vk_return then messagebox(form1.handle, "готово", "готово", mb_ok); end;

← →
Sun bittern © (2004-04-22 10:23) [2]

OnKeyUp

if Key = VK_RETURN then Caption := "";

← →
Demi (2004-04-22 10:23) [3]

Попробуй и спользовать MainMenu.

← →
JT (2004-04-22 10:27) [4]

Если форма модальная, то у кнопки ОК установи свойство Default:=True и ModalResult:=mrOK. И никакого кода не надо писать.

← →
Iraizor © (2004-04-22 10:39) [5]

дык если юзать onKeyUp То все работать ,но звуковой сигнал ,который говорит :" А нихрена я делать небуду!" , немного смущает

← →
vl_chel © (2004-04-22 10:51) [6]

В обработчике события OnKeyPress
if Key = #13 then {твои действия};

Ну нет у меня на работе звука...

попробуй что то типа:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=vk_return then begin key:=Word(#0); messagebox(form1.handle, "готово", "готово", mb_ok); end; end;

Если edit на форме один то
Button1.Default := true;

Всем спасибо, все получилось

Реакция TEdit на нажание клавиш Найти похожие ветки