Создание компанентов

← →
Kalista (2004-04-04 17:11) [0]

Подскажите, есть компанент, но у него нет события onClick и onMouseDown, как добавить эти события.

← →
хз © (2004-04-04 18:02) [1]

Смотря какой компонент.

← →
Gero © (2004-04-04 18:12) [2]

От какого класса унаследован?

← →
Anatoly Podgoretsky © (2004-04-04 18:30) [3]

Все это не важно, зато нужен исходный текст компонента.

← →
CAHEK © (2004-04-05 00:36) [4]

Допустим TWebBrowser,так как??????????????

← →
Fay © (2004-04-05 02:59) [5]

TMyCoolWB = class(TWebBrowser)
private
FOnClick : TNotifyEvent; // Фор экзэмпл, bln.
property OnClick : TNotifyEvent read FOnClick;
end;

← →
Fay © (2004-04-05 03:00) [6]

Типа этого. 8)
TMyCoolWB = class(TWebBrowser) private FOnClick : TNotifyEvent; // Фор экзэмпл, bln. public property OnClick : TNotifyEvent read FOnClick; end;

← →
Anatoly Podgoretsky © (2004-04-05 09:09) [7]

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

← →
Fay © (2004-04-05 09:18) [8]

противоречит вопросу := CAHEK = Kalista;

← →
Kalista (2004-04-05 10:08) [9]

В данный момент текста нет, т.к. я не на своем месте.
>Anatoly Podgoretsky
А события должны бать у нового компанента

Ответ был дан в [3] нет текста, значит нет возможности добавить. А когда нет возможности добавить, то делают хитрый ход - делают наследника, вот в этот момент появляется текст и соответственно возможность добавить новые поля, методы, события и свойства.

А нельзя просто обработать сообщения Windows WM_...? Или я чего-то недопонимаю?

Создание компанентов Найти похожие ветки