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

Горячие клавиши и фреймы   Найти похожие ветки 

← →
George ©   (2010-10-24 15:39) [0]

Нужно реализовать функционирование, так сказать, горячих клавиш Ctrl+S и Ctrl+Z. Причем сделать это на фрейме. У фреймов нет обработчиков OnKeyDown и иже с ним, так что попробывал обрабатывать на форме, на которой фрейм, но ничего там не происходит - я бряку ставил. Как бы все таки отловить сии волшебные нажатия? Через сообщения неохота, думается мне, должно быть что-то более кошерное.

---

← →
Игорь Шевченко ©   (2010-10-24 16:54) [1]

> У фреймов нет обработчиков OnKeyDown и иже с ним


как это нету ? Куда делись ?


> должно быть что-то более кошерное.


Action положи на фрейм.

---

← →
George ©   (2010-10-24 17:13) [2]

> как это нету ? Куда делись ?

http://files.ctrl-v.it/file.php?id=248&view


> Action положи на фрейм.

Ага, спасибо. )

---

← →
sniknik ©   (2010-10-24 18:28) [3]

> так что попробывал обрабатывать на форме, на которой фрейм, но ничего там не происходит
наверное на форме не включено "кейпревиев".

---

← →
George ©   (2010-10-24 18:38) [4]

> sniknik ©   (24.10.10 18:28) [3]

Да, точно. Честно говоря, не знал про него. Но я уже через экшны сделал.

---

← →
sniknik ©   (2010-10-24 18:50) [5]

> Но я уже через экшны сделал.
если выбирать по "кошерности", то правильно сделал.

---

← →
Игорь Шевченко ©   (2010-10-24 19:31) [6]

> http://files.ctrl-v.it/file.php?id=248&view


 TCustomFrame = class(TScrollingWinControl)
 TScrollingWinControl = class(TWinControl)
 TWinControl = class(TControl)
....
 protected
....
   function DoKeyDown(var Message: TWMKey): Boolean;
   function DoKeyPress(var Message: TWMKey): Boolean;
   function DoKeyUp(var Message: TWMKey): Boolean;
....
   procedure KeyDown(var Key: Word; Shift: TShiftState); dynamic;
   procedure KeyUp(var Key: Word; Shift: TShiftState); dynamic;
   procedure KeyPress(var Key: Char); dynamic;
....
 end;

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: 0.006 c