Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Наследник DBGrid и обработка клавиш при активном InplaceEdit   Найти похожие ветки 

 
KSergey ©   (2003-10-21 14:08) [0]

Проблема проста: надо повешать в компоненту свою реакцию на некую клавишу. Но если активен InplaceEdit - то клавиши идут к нему. При этом в TInplaceEdit.KeyDown (ну т.е. у предка InplaceEdit"ора) вызывается только обработчик, повешанный на OnKeyDowd parent"а. А собственный его метод KeyDown не вызывается.
Более того. Сам класс TDBGridInplaceEdit определен в секции implementation, т.е. я не могу сделать своего наследника TDBGridInplaceEdit и создавать уже его (в CreateEditor) со своей обработкой чего надо.

Вопрос: куда привеситься в наследнике TDBGrid, чтобы обрабатывать в том числе и клавиши при активном редактировании поля колонки?


 
KSergey ©   (2003-10-21 14:09) [1]

Да, вариант "скопировать текст реализации TDBGridInplaceEdit в свой модуль" - не нравится, мягко говоря...


 
Vlad ©   (2003-10-21 14:20) [2]

Application.OnMessage


 
KSergey ©   (2003-10-21 15:14) [3]

[2] Vlad © (21.10.03 14:20)

Ага, а его переопредеит кто-нибудь - и приехали
Да и для компонента такие штуки делать - не смешно, однако.

Если кому интересно - выкрутился так.
Переопределил ф-цию окна для InplaceEdit"ора

function TdoDBGrid.CreateEditor: TInplaceEdit;
begin
Result := inherited CreateEditor;
FInplEdPrevWndProc := Result.WindowProc;
Result.WindowProc := InplEdWndProc;
end;

Ну а в InplEdWndProc уже определяюсь с нужным сообщением - и далее по сценарию...
Во всяком случае работает, но от дельных предложений не откажусь ;)



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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.065 c
3-40850
Serhij H.
2003-10-21 11:52
2003.11.13
Значение PARADOX -> NET DIR


1-41227
AndriyS
2003-11-01 14:15
2003.11.13
Помогите с StringGrid


3-40788
The X
2003-10-22 05:14
2003.11.13
Облегчение сервисной работы с большим кол-вом таблиц


9-40759
G a m e r
2003-05-05 19:02
2003.11.13
Исходники Warcraft 2000! :)


1-41601
han-bratan
2003-11-03 12:55
2003.11.13
русские буквы при нерускком locale