Çeviri: Ramazan Gülbahar
Aşşağıdaki uygulamalar Shift, Ctrl ya da Alt tuşu basılımı Algılamaya yarar.
Kod: Tümünü seç
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 AltDown : Boolean;
var
State : TKeyboardState;
begin
GetKeyboardState(State) ;
Result := ((State[vk_Menu] and 128) <> 0) ;
end;