Kalo mau deteksi penekanan sebuah tombol aja kan caranya biasa aja, misalkan : if key =#13then //untuk enter Nah, kalo misalkan mau deteksi penekanan tiga tombol gimana ya ? Misalkan Ctrl-Alt-1 (angka 1).

simpan di variabel global sebagai array flag (keydown).. klo down flag di set klo up flag di clear.. klo ngeceknya tinggal if key[key1] and key[key2] and key[key3] dst... then

Ctrl, Alt dan Shift harus dideteksi dengan cara membaca parameter Shift: TShiftState yg disertakan dalam event method... atau bisa dibaca menggunakan native function GetKeyState angka 1 dibaca dari parameter Key ... contoh:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssCtrl in Shift) and (ssAlt in Shift) and (Key = Ord('1')) then
  
end;

Kalo kayak gini juga bener kan ? (pas dicoba sih jalan, tapi ga tau kalo ada kekurangan) If (GetKeyState(VK_CONTROL) < 0) and (GetKeyState(VK_MENU) < 0) and (GetKeyState(49) < 0) then soalnya pas nyoba showmessage hasil GetKeyState-nya itu selalu minus. Jadinya dicek kondisinya apakah < 0.....

Bisa gunakan ini nih SHORCUT KEY Tamabahkan uses menus nya pada TForm onKeyDown atau onKeyup procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin // ShowMessage(UpperCase(ShortCutToText(ShortCut(Key, Shift)))); if UpperCase(ShortCutToText(ShortCut(Key, Shift))) = 'SHIFT+CTRL+ALT+F12' then begin Proses disini; end; end; atau procedure TForm1.FormkeyDown(Sender: TObject; var key: word; Shift : TShiftState); begin //Aktifkan KeyPreview menjadi TRUE //Shorcut ctrl-A (ssShift, ssAlt, ssCtrl) if (ssCtrl in Shift) and (chr(Key) in ['A', 'a']) then Showmessage('Ctrl-A di tekan'); //Mematikan shortcut Alt-F4 if (ssAlt in Shift) and (Key= VK_F4)then key := 0; end;