Пикающий 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);

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