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

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

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

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

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

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