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