VPF::Горячие клавиши - Форум программистов

Guest

Дата 19.7.2005, 21:56 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Как поставить на горячие клавиши к примеру a + b ?

Poseidon

Дата 19.7.2005, 22:18 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Ниче не понял. Тебе надо что бы "горячими" были клавиши "а" и "b" или что бы при нажатии на горячие клавиши происходило суммирование переменных а и b?

Если первое, то узай событие OnKeyDown

пример:

Код

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 If ((GetKeyState(65) AND 128)=128) and
    ((GetKeyState(66) AND 128)=128)
 then ShowMessage('Нажаты горячие клавиши');
end;

Если второе, то можно использовать то же самое, только вместо вывода сообщения производить суммирование.

Так же не помешает заглянуть в FAQ:
http://vingrad.ru/DELPHI-DLP-002502
http://vingrad.ru/DELPHI-DLP-000553
http://vingrad.ru/DELPHI-DLP-000556

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Guest

Дата 19.7.2005, 22:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Спасибо огромное !!! Как раз первый вариант нужен был smile

Guest

Дата 19.7.2005, 22:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А ты бы не мог уточнить что значит ...AND 128) = 128

_hunter

Дата 20.7.2005, 10:40 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

это называется маскИрование. тут идет проверка вернула ли GetKeyState() 128. зачем? -- читай справку по функции

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

Tempora mutantur, et nos mutamur in illis...

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