Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

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

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

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

---

← →
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;


---

← →
[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 := "";

---

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

OnKeyUp

if Key = VK_RETURN then Caption := "";

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

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

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

---

← →
[lamer]Barmaglot ©   (2004-04-22 10:54) [7]

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

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


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;



---

← →
[lamer]Barmaglot ©   (2004-04-22 10:54) [7]

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

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


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;



---

← →
VAleksey ©   (2004-04-22 10:56) [8]

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

---

← →
VAleksey ©   (2004-04-22 10:56) [8]

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

---

← →
Draught ©   (2004-04-22 11:32) [9]

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

---

← →
Draught ©   (2004-04-22 11:32) [9]

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

---

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

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.056 c