Событие после серии нажатий
Событие после серии нажатий
Событие после серии нажатий Событие ShowMessage('OK!'); Возникает только в том случае, если удерживался ALT и была набрана определенная комбинация букв KINGRON uses Menus; var CharBuf: array [1..7] of Word; const /// ALT + KINGRON Keys: array[1..7] of Word = (32843, 32841, 32846, 32839, 32850, 32847, 32846); procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var i: Integer; begin for i := Low(CharBuf) to High(Charbuf) - 1 do CharBuf[i] := Charbuf[i + 1]; CharBuf[High(CharBuf)] := ShortCut(Key, Shift); if CompareMem(@CharBuf[1], @Keys[1], SizeOf(Keys)) then ShowMessage('OK!'); end;
