Как вариант - смотри исходники VCL, как это там реализовано.
Иерархия:
TCustomCombo -> TCustomComboBox -> TComboBox
Событие OnSelect объявлено в классе TCustomCombo : property OnSelect: TNotifyEvent read FOnSelect write FOnSelect;
FOnSelect вызывается в методе TCustomCombo.Select
метод TCustomCombo.Select вызывается в TCustomComboBox.SelectItem
метод TCustomComboBox.SelectItem вызывается в TCustomComboBox.KeyPress
Вывод: можно смотреть как реализован TCustomComboBox.KeyPress и писать по аналогии.
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887
|