Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/26: Рейтинг темы: голосов - 26, средняя оценка - 4.58
1 / 1 / 1
Регистрация: 26.12.2009
Сообщений: 37
1

Отследить нажатие кнопки del

31.12.2009, 01:10. Показов 4709. Ответов 2
Метки нет (Все метки)

Подскажите, как отследить нажатие кнопки del?
Делаю так:
Код
procedure TForm1.Outline1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (Key=VK_delete) Then ShowMessage('Del!');
end;
Делал и так:
Код
procedure TForm1.Outline1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    If GetKeyState(vk_Delete)<>0 Then ShowMessage('Del!');
end;
В первом случае никак не реагирует, во втором только каждое второе нажатие (вероятно младший бит все время на toggle переключается).
Посоветуете что-то?
Заранее спасибо!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.12.2009, 01:10
Ответы с готовыми решениями:

Отследить нажатие кнопки с клавиатуры
Добрый день, написал я программу, которая отправляет пакеты, и в игре меняется одежда. Хочу...

Как отследить нажатие кнопки?
Приветик, всем!!!! Помогите, пожалуйста, мне надо отследить нажатие на кнопку на другой форме,а на...

Отследить нажатие клавиши в консоли
Всем привет... В delphi нажатие клавиши можно отследить с помощью Key=#13 или vc_enter ... А как...

Отследить двойное нажатие в hook'e
Я использую глобальный хук на мышь WH_Mouse_LL. Как отследить в нём двойное нажатие, скажем, левой...

2
4 / 4 / 3
Регистрация: 25.11.2008
Сообщений: 58
31.12.2009, 01:35 2
Лучший ответ Сообщение было отмечено kaps как решение

Решение

Delphi
1
2
3
4
5
Procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_Delete then showMessage('Del!');
end;
Прекрасно работает. Проверьте включено ли у Вас в Инспекторе объектов Form1 KeyPreview(т.е. True), а в Events на OnKeyDown соответствующая процедура.
1
1 / 1 / 1
Регистрация: 26.12.2009
Сообщений: 37
31.12.2009, 01:42  [ТС] 3
Сделал это событие на форме, и определил еще одно условие:
Код
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

    if (Key=VK_delete) and (Outline1.Focused) Then ShowMessage('Del!');
end;
Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.12.2009, 01:42

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Отследить нажатие любой клавиши
Приветствую всех! Подскажите плиз как отследить нажатие любой клавиши на клавиатуре без...

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

Как отследить нажатие клавиш в системе?
Как на делфи отследить нажатие клавиш, когда управление передано любой программе (или вообще...

Нажатие каждой кнопки приводит к ее сокрытию и показу ранее скрытой кнопки
Нажатие каждой кнопки приводит к ее сокрытию и показу ранее скрытой кнопки. При этом номер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.