Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Tedit
Форум программистов > Системное программирование > Delphi и Pascal > Delphi - FAQ
DZX
Уважаемые коллеги, смешная ситуация, однако...
В компоненте TEdit при нажатии клавиши enter воспроизводится
системный звук типа когда кликают на неактивное окно приложения
когда фокус находится на другом модальном окне.
Что то я недопонимаю причины явления, а бибиканье надоело,
может подскажите где собака зарыта?
Barmutik
Это звук издаёт MS Windows при получениии сообщения о нажатии клавиши по которой ничего не делается ... в лоб решить просто ...

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


А ещё лучше по вводу перехродить просто на другой контрол

procedure Edit.OnKeyPress(Sender: TObject; var Key: Char) 
begin
 if Key = #13 then
 begin
   TWinControl(Sender).SelectNext(TWinControl(Sender), true, true);
   Key := #0;
 end;
end;

или

procedure Edit.OnKeyPress(Sender: TObject; var Key: Char)
begin
 if Key = #13 then
 begin
   FocusControl(FindNextControl(ActiveControl, true, true, false));
   Key := #0;  
end;
end;
DZX
Большое спасибо, нажатие у меня обрабатывалось, но переопределить код нажатой клавиши не догадался.
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2008 IPS, Inc.