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

Как убрать звук при нажатии Enter а в TEdit e.   Найти похожие ветки 

← →
Darkwing ©   (2005-08-30 08:42) [0]

Я помню что как-то как, но он все равно брякает

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
if Key = 13 then DoSomething...
Key := 0;
end;

---

← →
злобная танька   (2005-08-30 08:45) [1]

OnKeyPressed

---

← →
Anatoly Podgoretsky ©   (2005-08-30 09:48) [2]

Сделай кнопку по умолчанию, будет профессионально.

---

← →
capkoh ©   (2005-08-30 13:37) [3]

По-моему, это было в FAQ. Но, вот решение:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then Key := #0;
end;

---

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

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



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