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

Пикающий Edit   Найти похожие ветки 

← →
Баралгин   (2004-02-07 14:24) [0]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
Memo1.Lines:=Edit1.Text;
end;

//Как зделать чтоб при нажатии ENTER"a Edit молчал, везде советуют добавить такую процедуру:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((UpCase(Key) < "A") or (UpCase(Key) > "Z")) then
Key := #0;
end;
... и ENTER перестаёт пикать, но тогда цифры, пробелы и символы через АЛЬТ - непечатаются, а заодно и Backspase неработает...
Что делать?

---

← →
Clift ©   (2004-02-07 14:30) [1]

и ENTER перестаёт пикать
Это как???
Я вопроса непонял

---

← →
Rouse_ ©   (2004-02-07 14:31) [2]

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

Желаю успехов

---

← →
MBo ©   (2004-02-07 14:31) [3]

стоит задуматься над тем, что советуют.
Раз тебе мешает только Enter, лишь его и игнорируй
if Key=#13 then Key=#0

---

← →
Баралгин   (2004-02-07 14:34) [4]

Спасибо други!!!

---

← →
Dimka Maslov ©   (2004-02-07 14:35) [5]

Удалено модератором
Примечание: Что есть "маздайные ламеры" ? ;))

---

← →
ssk   (2004-02-07 14:37) [6]

Сделай в EditOnKeyDown это:

SystemParametersInfo(SPI_SETBEEP, 0, nil, SPIF_UPDATEINIFILE);

А в EditOnKeyUp это:

SystemParametersInfo(SPI_SETBEEP, 1, nil, SPIF_UPDATEINIFILE);

---

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

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



Память: 0.46 MB
Время: 0.012 c