![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TEdit орет! :-)
Leviathan © (2002-01-05 01:07:00)Ничего не понимаю! При обработке нажатия клавиши на TEdit он издает никем не заказанный звук :-) Как бы его заткнуть?
Adder (2002-01-05 01:23:00) [1]Орёт, небось, по Esc (#27) и Enter (#13) ?
тогда в OnKeyPress (см. выше):
...
if Key=#13 then Key:=#0;
if Key=#27 then Key:=#0;
Adder (2002-01-05 01:20:00) [2]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then Key:=#0;
end;