Цитата:
Сообщение от Black Raider
Код:
1 2 3 | .....
if (Shift = [ssShift]) then SelectNext(ActiveControl as TWinControl, false , true )
.....
|
|
Здесь лучше так:
Код:
1 | if ssShift in Shift then .....
|
Так как в таком виде проверяется состояние только клавиши Shift вне зависимости от состояния остальных клавиш.