|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.10.2007, 14:03 | #1 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
как мне узнать когда одновременно нажаты две клавиши
как мне узнать когда одновременно нажаты две клавиши(левая кнопка мыши и f12)
ICQ-465033557
WINDOWS CE THE BEST |
11.10.2007, 14:10 | #2 |
Новичок
Джуниор
Регистрация: 25.09.2007
Сообщений: 1
|
Через ASCI кодировку. Типа если ("код F12"=1(true))and("код LeftMouseKey"=1(true)) then "действие"
PS: Коды не помню, поэтому написал словами |
11.10.2007, 14:20 | #3 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Решение "в лоб":
Код:
|
11.10.2007, 14:27 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Решение "По лбу"
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (button=mbleft)and(GetKeyState(VK_f 12)<>0) then caption:='Нажаты мыша и F12' end;
I'm learning to live...
|
11.10.2007, 14:37 | #5 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
|
11.10.2007, 14:56 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Ладно, тогда пусть это будет для разнообразия и расширения, такскать, кругозора )
I'm learning to live...
|
11.10.2007, 15:04 | #7 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
это я всё знаю так мне надо когда у меня нет формы
ICQ-465033557
WINDOWS CE THE BEST |
11.10.2007, 15:54 | #8 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Тогда лови WM_MOUSEDOWN и дальше, практически так же, как толково STILET подсказал...
Последний раз редактировалось mihali4; 11.10.2007 в 17:29. |
11.10.2007, 17:13 | #9 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
ну вобще.. а сразу трудно написать об этом.
Берегите друг друга!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одновременно делать 2 действия(showmessage и ShellEzecute) | Ozerich | Общие вопросы Delphi | 2 | 29.08.2008 08:16 |
Как копировать и одновременно переименовывать файлы? | eriser | Помощь студентам | 4 | 17.01.2008 17:51 |
пры нажаты в компоненте WebBrowser на какой нибудь гыперссилке случалась какоэта сабития | Миша | Работа с сетью в Delphi | 2 | 18.09.2007 22:24 |
Как узнать когда браузер скачивает, а когда нет? | iPod | Работа с сетью в Delphi | 1 | 07.05.2007 15:16 |