Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.012 c
3-83366
Kirill_S
2003-05-05 18:51
2003.05.26
Господа, помогите с QReport !


1-83457
NewBegginer
2003-05-12 20:44
2003.05.26
Работа с масками вида xyz* ну или что-то подобное


4-83806
Ик сик
2003-03-28 16:16
2003.05.26
Я пытаюсь поставить hook на нажатие левой кнопки мыши


4-83799
xShadow
2003-03-28 14:36
2003.05.26
Как с помощью API функций изменять позицию курсора ???


3-83406
Desdechado
2003-05-06 16:08
2003.05.26
лицензия на midas.dll