Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Вниз
Сочетание клавиш Найти похожие ветки
← →
AlexanderMS © (2006-03-26 19:20) [0]На форме - объект типа TPageControl . Как мне можно огранизовать переключение на 1-ую страницу сочетанием клавиш, допустим, CTRL + 1, а на вторую - CTRL + 2. Как "отловить" нажатие подобных сочетаний клавиш?
← →
Dmitrij_K (2006-03-26 19:28) [1]У формы поставь KeyPreview := True;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key in [Ord("0")..Ord("9")]) and (ssCtrl in Shift) then
case key of
Ord("0") : ;
Ord("1") : ;
Ord("2") : ;
end
end;
← →
AlexanderMS © (2006-03-26 19:34) [2]Большое спасибо, работает!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c
