Сочетание клавиш

← →
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;

Большое спасибо, работает!

Сочетание клавиш Найти похожие ветки