Форум: "Основная";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];

Вниз

ctrl+shift+f10   Найти похожие ветки 

← →
Dysan   (2003-12-24 15:00) [0]

Поскажите пожалуйста как узнать что одновременно нажаты клавиши ctrl+shift+f10

---

← →
Skier   (2003-12-24 15:01) [1]

А параметры Shift : TShiftState и Key : Word уже отменили ?

---

← →
TUser   (2003-12-24 15:03) [2]

OnKeyDown
if (key=VK_F10) and (проверить SiftState)

---

← →
Serge   (2003-12-24 15:49) [3]

Или так:

Function CtrlDown: Boolean;
Var
State: TKeyboardState;
Begin
GetKeyboardState(State);
Result := ((State[vk_Control] And 128) <> 0);
End;

Function ShiftDown: Boolean;
Var
State: TKeyboardState;
Begin
GetKeyboardState(State);
Result := ((State[vk_Shift] And 128) <> 0);
End;

Function F10: Boolean;
Var
State: TKeyboardState;
Begin
GetKeyboardState(State);
Result := ((State[vk_F10] And 128) <> 0);
End;

если не нужно имеено в OnKeyDown

---

← →
Александр из Минска   (2003-12-24 23:37) [4]

> Result := ((State[vk_F10] And 128) <> 0);

А что везде означает 128?

---

← →
Самый добрый человек   (2003-12-25 06:29) [5]

Александр из Писки )))

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.01.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.013 c