| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ненужный звук при нажатии Enter в поле TEdit [D7]

kuku ©   (2013-07-19 15:31:00) 

Граждане профи, объясните пожалуйста, почему при нажатии Enter  в поле TEdit или TLabeledEdit винда выдает нежелательный звук, вроде как ошибочное действие, независимо от наличия обработчика нажатия клавиши. Можно ли с этим бороться и как?

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ExtCtrls;

type
 TForm1 = class(TForm)
   LabeledEdit1: TLabeledEdit;
   Edit1: TEdit;
   Label1: TLabel;
   procedure LabeledEdit1Change(Sender: TObject);
   procedure LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
     Shift: TShiftState);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
    Label1.Caption:= 'URA';
end;

procedure TForm1.LabeledEdit1KeyUp(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
   if Key = VK_RETURN then
   Label1.Caption:= 'XREN';
end;

end.

---

Dimka Maslov   (2013-07-21 19:21:00) [1]

if Key = #13 then Key := #0

---

kuku   (2013-07-20 11:33:00) [2]

> Не присвоишь, тип другой

Конечно не в лоб, а с преобразованием

---

Anatoly Podgoretsky   (2013-07-20 11:05:00) [3]

> я присвою Key:= 0;

Не присвоишь, тип другой

---

Inovet   (2013-07-19 19:00:00) [4]

Бедный, мой бедный, Кей.
Кто сделал тебя нулём?
Я снова отправлюсь в вей,
и вместе мы заживём.

---

Германн   (2013-07-19 18:15:00) [5]

Так ведь не каждому Кею присваивать 0 нужно, а только тому у которого нет своей Герды. :)

---

kuku   (2013-07-19 18:09:00) [6]

> Dimka Maslov ©   (19.07.13 17:52) [6]
>
> OnKeyPress

Ага, только редактировать ничего не получится, если в
> OnKeyPress

я присвою Key:= 0;

---

Dimka Maslov   (2013-07-19 17:52:00) [7]

OnKeyPress

---

kuku   (2013-07-19 17:51:00) [8]

> попробуй сделать Key:= 0; в онклик.


> А что тебе sniknik ответил, разве не это

В OnClick параметр Sender, а параметра Key нет. Нельзя ли поподробнее?

---

Anatoly Podgoretsky   (2013-07-19 17:37:00) [9]

А что тебе sniknik ответил, разве не это

---

kuku   (2013-07-19 17:21:00) [10]

"это обратная связь о нажатие неположенных клавиш. Конечно можешь это задавить, но это вредно."
Почему не положенных? Если, например, мне надо из этого поля взять значение и что-либо с ним сделать? Логично, набрав в поле ввода нужное, нажать Enter. Но звук раздражает. Можно ли сделать Enter положенной клавишей?

---

Anatoly Podgoretsky   (2013-07-19 16:39:00) [11]

Звук очень желательный, это обратная связь о нажатие неположенных клавиш. Конечно можешь это задавить, но это вредно.

---

sniknik   (2013-07-19 15:42:00) [12]

попробуй сделать Key:= 0; в онклик.

---

Наверх