Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

Ненужный Beep   Найти похожие ветки 

 
Жук ©   (2003-02-07 17:11) [0]

Есть процедурка :
procedure TFPrinc1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
// ПЕРЕНАПРАВЛЕНИЕ ENTER -> TAB
if Key=13 then begin
if ActiveControl is TDBLookupComboBox
then begin
if not TDBLookupComboBox(ActiveControl).ListVisible
then begin
Key := 0;
FindNextControl(ActiveControl, true, true, false).SetFocus;
end;
end
else begin
Key := 0;
FindNextControl(ActiveControl, true, true, false).SetFocus;
end;
end;
// Раскрываем список combobox
if (Key=32) and (ActiveControl is TDBLookupComboBox) and (not TDBLookupComboBox(ActiveControl).ListVisible)
then TDBLookupComboBox(ActiveControl).DropDown;
end;
Если она попадает на DBEdit, то на end"е динамик пищит Beep. Как от этого избавиться ?


 
Александр Спелицин ©   (2003-02-08 20:02) [1]

Уберите клавиатурные сообщения из очереди через PeekMessage:
PeekMessage (M, ActiveControl.hWnd, WM_KEYFIRST, WM_KEYLAST, True)



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

Текущий архив: 2003.04.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.014 c
1-6551
Dim!S
2003-03-21 10:53
2003.04.03
Как проиграть avi файл, зашитый в программу


3-6319
sapsi
2003-03-17 13:48
2003.04.03
Названия полей таблиц


1-6505
Roki
2003-03-24 17:15
2003.04.03
Каким компонентом вводят время в формате чч:мм?


1-6449
oleg_ero
2003-03-24 07:38
2003.04.03
StatusBar глючит


14-6664
рщеищн
2003-03-18 10:05
2003.04.03
Функция проверки правописания.