Горячие клавиши и фреймы

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

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

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

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

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