Как назначить событие KeyDown элементу стиля Edit

[Antonyan]

Добрый вечер !

Создал стиль для итемов Listbox. Одними из элементов стиля являются Edit и Button.

И если событие Button.OnClick работает без проблем,то с Edit.OnKeyDown не получается.

Как это поправить ?

Var
aItem: TListboxItem;
  aItem.StylesData['Button.OnClick'] := TValue.From<TNotifyEvent>(ButtonClick); - работает
  aItem.StylesData['Edit.OnKeyDown'] := TValue.From<TNotifyEvent>(EditKeyDown(Self,key,KeyChar,Shift)) - не работает

 

 

 

[Равиль Зарипов (ZuBy)]

10 минут назад, Antonyan сказал:

aItem.StylesData['Edit.OnKeyDown'] := TValue.From<TNotifyEvent>(EditKeyDown(Self,key,KeyChar,Shift)) - не работает

попробовать изменить так

aItem.StylesData['Edit.OnKeyDown'] := TValue.From<TKeyEvent>(EditKeyDown(Self,key,KeyChar,Shift)) 

 

[Antonyan]

Спасибо огромное !

Изменено 26 января, 2017 пользователем Antonyan

[Antonyan]

И еще один вопрос :

Как программно передать фокус элементу Edit ?