Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c