Исключить звуковой сигнал в поле вводаDelphi , Компоненты и Классы , TEditИсключить звуковой сигнал в поле ввода
Оформил: DeeCo // Either disable the Beep in the OnKeyPress handler: // Unterdrucke den Beep-Ton entweder im OnKeyPress Ereignis: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then // #13 = Return begin key := #0; // Code... end; end; // Or in the OnKeyDown-Handler: // Oder im OnKeyDown Ereignis: procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var Mgs: TMsg; begin if Key = VK_RETURN then PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE); end; Статья Исключить звуковой сигнал в поле ввода раздела Компоненты и Классы TEdit может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |