[Сергей77]

Подскажите, пожалуйста, примером (или последовательностью действий), как решить следующую задачу:
- на базе компонента TRichEdit необходимо сделать ActiveX компонент, который дублирует все атрибуты, методы и события
- кроме этого, функционал нового компонента будет немного расширен

Условия:
- конечный объект д.б. представлен в виде DLL библиотеки, которую потом будет использовать другое ПО (д.б. доступ к атрибутам, методам и событиям извне)
- среда разработки Delphi7

Заранее спасибо.

[NumLock]

-создаешь новый проект Active Form
-кидаешь на форму RichEdit
-меню View - Type Library
-у интерфейса IActiveFormX создаешь новые свойства/методы
-в реализации этих свойств(Get_/Set_)/методов обращаешься к RichEdit

[Сергей77]

Спасибо.

Уточнения:
- правильно я понимаю, что я делаю новые свойства у ФОРМЫ, на которой лежит RichEdit, но в реализации могу работать со свойствами RichEdit?
- аналогично с событиями?
- и соответственно как должна выглядеть реализация (например для размера шрифта) если я не хочу создавать новое свойство, но хочу иметь доступ к его изменению и просмотру.

Заранее спасибо.

[Сергей77]

Со свойствами разобрался, как доступ получить.

Не могу никак доступ к событиям компонента получить.
Подскажите, пожалуйста, примером.

[NumLock]

посмотри как сделаны события у TActiveFormX, метод Initialize:

Код:

procedure TActiveFormX.Initialize;
begin
  inherited Initialize;
  OnActivate := ActivateEvent;
...

далее:

Код:

procedure TActiveFormX.ActivateEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnActivate;
end;

Код:

FEvents: IActiveFormXEvents;

[Сергей77]

Сделал доступ к событию

Код:

procedure TREForm.RichEditKeyPress(Sender: TObject; var Key: Char);
begin
  if FEvents<>nil then FEvents.OnREKeyPress(Key);
end;

Bargest: оформляем код тегами!

из внешней программы получили доступ к этому событию (OnREKeyPress) ... но отлавливаются только буквы и цифры, а например стрелочки (влево, вправо, вниз, вверх) нет

как решить такую проблему, что обрезался диапазон клавиш, которые может отловить RichEdit?

и еще момент --- при нажатии стрелок влево/вправо/вверх/вниз курсор внтури ричэдита не перемещается, а переходит на другой компонент внешней программы

[NumLock]

а OnKeyPress не срабатывает на стрелочки.

[Сергей77]

Понял.

А как с вопросом того, что по стрелочкам управления курсора происходит переход на другой элемент внешней формы, а не переход между символами внутри пространства RichEdit?

То есть мне надо, чтобы когда был курсор внутри ричэдита, то по нажатию стрелок курсора не было бы перехода на другие компоненты.

[Сергей77]

Люди, помогите....
Хоть какие-нибудь версии почему не работают стрелки внутри поля ввода после того, как форма на которой оно расположено, становится ActiveX?
Может какие события/методы перегрузить надо или настройки подкрутить?