Текущий архив: 2003.05.26;
Скачать: CL | DM;
Вниз
Нажатие Ctrl? Найти похожие ветки
← →
User (2003-05-13 12:01) [0]Привет всем!
как определить нажата ли системная клавиша (Ctrl,Shift,Alt)
или их комбинация?
Спасибо.
← →
Andrews © (2003-05-13 12:32) [1]Примерно так
procedure TForm.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
<Код клавиши> : if (ssCtrl in Shift) then ...
end;
end;
P.S. Смотри хелп по TShiftState
← →
User (2003-05-13 12:42) [2]вообщето я отлавливаю нажатие клавы при щелчке на Title DBGrid"а, и как то этот вариант не очень устраивает, а средствами API это не сделать?
← →
Bel © (2003-05-13 12:52) [3]Параматр Shift есть и у обработчиков событий OnMouseDown и OnMouseUp. Проверять его там - самое простое.
← →
Andrews © (2003-05-13 12:53) [4]Коллега Bel абсолютно прав :o)
← →
han_malign © (2003-05-13 12:54) [5]запоминать ShiftState по OnKeyDown/OnKeyUp
WinAPI - смотри GetKeyState
← →
dtrn (2003-05-13 22:50) [6]Form KeyPreview = TRUE
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then
StatusBar1.SimpleText:="Ctrl"
else
if ssShift in Shift then
StatusBar1.SimpleText:="Shift";
end;
Страницы: 1 вся ветка
Текущий архив: 2003.05.26;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
