Shift, Ctrl ya da Alt Tuşu Basılımı Algılamak.

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
RamazanG
Üye
Mesajlar: 73
Kayıt: 16 Tem 2010 02:38

Shift, Ctrl ya da Alt Tuşu Basılımı Algılamak.

Mesaj gönderen RamazanG » 24 Eyl 2010 10:22

Makale: Zarko Gajic.
Ç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;


Cevapla