Получить код нажатой клавиши на картинке

[Григоренко Степан]

Здравствуйте. Проблема такая.
На картинке сначала идет щелчок мышкой, потом нажимается клавиша.
Нужно получить код этой клавиши. Проблема в том, каким событием это обработать. Есть ли у Имиджа какое - нибудь свойство подобное OnKeyPress?

[Sciv]

Событие OnkeyPress в дельфях идет от класса TWinControl, а TImage порождается напрямую от TControls в обход этого класса.
Так что, вероятнее всего, придется писать собственный класс, наследующий все лучшее от двух вышеназванных, либо искать левые компоненты, где все это реализовано.

[Delphi_ProGer]

А если "вручную" прикрутить событие(я имею ввиду procedure ProcName(Params...); message кое-что )? Тоесть перехватить message.

[Кольша]

А если кинуть на форму какой нибудь прозрачный компонент типа paintbox(типа, но не его) и поставить выше(brighttofront) timage?

[Sciv]

Да можно и без этого всего тогда... На событие OnKeyPress формы проверять положение мыши, и если ее координаты внутри картинки - делать, что нужно.
Ну или другое какое условие - по желанию и необходимости.

Я просто думал, что надо именно TImage заставить реагировать на нажатие...

UPD. Был прав, да не во всем... Если на форме есть активный элемент типа кнопки с фокусом на нем, то не сработает. То есть - нужно писать процедуру проверки нажатия и вгонять ее в KeyPressed всех компонент формы... тягомотно как-то

[Вадим Буренков]

Можно проверять нажата ли клавиша по ее коду с помошью функции

function Key_Press(key: byte): boolean;
var
  keys: TKeyboardState;
begin
  result:=false;
  GetKeyboardState(keys);
  if(keys[key]=128)or(keys[key]=129)then result:=true;
end;

[Григоренко Степан]

Спасибо за ваши ответы, сейчас попробую!

[New man]

можно еще hook'и использовать

[isqoff]

в принципе решил вашу проблему(хотя конечно смотря для чего),но для примитива,если актуально могу поделиться