Создание собственных горячих клавиш

Советы » Клавиши » Создание собственных горячих клавиш

procedure

TForm1.FormKeyDown(Sender: TObject; var

Key: Word; Shift: TShiftState); begin

if

(ssCtrl in

Shift) and

(chr(Key) in

['A', 'a']) then

ShowMessage('Ctrl-A'); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com