Checke taster

Brug formens OnKeyDown event

/HK

Vidste jeg så godt ;)Men hvad skal man skrive i OnKeyDown?

I onKeyDown:

1: Du skal fange taste tryk og lægge det i en liste.
2: Løb array igennem og test om den kombination(evt flere) findes, hvis fundet så reset listen og kald en proc/andet action.
(3: sæt timerens tid til fx 3 sec. dvs max tid imellem taster = 3 sec)

Lav en timer, den skal nulstille listen bare.

Timeren vil sørge for at hvis interval mellem taster er for lang så accepteres input ikke.

Det er nok lettere at benytte formens onkeydown, husk at KeyPreview=true

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
VK_U = $55;
begin
if (ssShift in Shift) and (ssCtrl in Shift) and (Key=VK_U) then
  showmessage('shift+ctrl+u tastet');
end;

en anden mulighed kunne være at benytte en skjult menu med nogle ShortCut sat. Eller evt. benytte windows WM_HOTKEY, RegisterHotKey mulighed. Se her:
http://www.swissdelphicenter.ch/torry/showcode.php?id=147

...