Ctrl+ a

← →
ss300 (2004-04-16 17:33) [0]

как можно узнать код клавиши сабж ?

← →
ss300 (2004-04-16 17:34) [1]

в смысле, не подскажете какой код сочетании клавиш ctrl+"a"

← →
clickmaker © (2004-04-16 17:35) [2]

Код "a" - 97
Что нажата Ctrl - GetKeyState(VK_CONTROL)

← →
WebErr © (2004-04-16 17:38) [3]

Наверное всё-таки имеется в виду ^A точно не помню, но по моему ^A = #1.

← →
ssk (2004-04-16 17:39) [4]

тогда может так?

if (ssCtrl in Shift) and (key = 97) then

← →
WebErr © (2004-04-16 17:39) [5]

Так что код = 1.

← →
ss300 (2004-04-16 17:41) [6]

ни тот ни другой не срабатывает.. #1 тоже не работает

есть еще варианты, братья?

← →
ss300 (2004-04-16 17:49) [7]

разобрался.. код клавиши a = 65 :)

← →
ssk (2004-04-16 17:53) [8]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssCtrl in Shift) and (Key = 65)) then
ShowMessage("Ctrl+A");
end;

Я бы всё-таки учитывал регистр и изменение раскладки:
case Key of "A","a","Ф","ф": if ssCtrl in Shift then ShowMessage("Someone call the doctor?"); end;

Вернее что-то вроде Char(Key) потому что паскаль - это не С!

Ctrl+ a Найти похожие ветки