Ненужный Beep [D4, WinXP]
Жук © (2003-02-07 17:11:00)
Есть процедурка :
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:00) [1]
Уберите клавиатурные сообщения из очереди через PeekMessage:
PeekMessage (M, ActiveControl.hWnd, WM_KEYFIRST, WM_KEYLAST,
True)
Наверх 
ЧАТ |
Орешник |
|
