VPF::AlphaControls и OnKeyDown - Форум программистов

MacTep

Дата 9.9.2007, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Использую компоненты AlphaControls. При обработке нажатия клавиш клавиатуры в sSpinEdit использую следующий код:

Код


procedure TfrmChangeSumm.spNewSumKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then
    BitBtn1.Click;
end;

Все бы замечательно было, если бы не раздражал звуковой сигнал, который раздается при выполнении кода. Как его можно убрать??? Помогите, плиз.

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Yanis

Дата 10.9.2007, 08:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

DRKB

Код

// Either disable the Beep in the OnKeyPress handler: 
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: 
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;

--------------------

*щёлк*

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »