Проблема с написанием компонента.

← →
Сушняк (2003-07-03 12:23) [0]

Нужен компонент на основе TLabel, который при наведении курсора меняет цвет и становится подчёркнутым (Обычная гиперссылка), причём Желательно оставить старые родительские обработчики событий MouseEntar и MouseLeave. Привожу полностью весь код.

unit HighlightLabel; interface uses SysUtils, Classes, Controls, StdCtrls, Graphics; type THighlightLabel = class(TLabel) private FLabel:THighlightLabel; { Private declarations } protected { Protected declarations } public procedure MouseEnter; override; procedure MouseLeave; override; { Public declarations } published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents("MyComponents", [THighlightLabel]); end; procedure THighlightLabel.MouseEnter; begin inherited MouseEnter; FLabel.Font.Color:=clBlue; FLabel.Font.Style:=[fsUnderline]; end; procedure THighlightLabel.MouseLeave; begin inherited MouseEnter; FLabel.Font.Color:=clWindowText; FLabel.Font.Style:=[]; end; end.

Дельфя матерится и говорит, что мол методы MouseEnter и MouseLeave не найдены в базовом классе. Где тут ошибка?

← →
MBo © (2003-07-03 12:39) [1]

Ошибка в неизучении исходников.
Матерится правильно - нет таких методов.
В Tcontrol вводится только обработчик CM_MouseEnter/Leave, а методы диспетчеризации надо самому писать

← →
Сушняк (2003-07-03 12:44) [2]

Мда... Написал компонентик... ;(
А примерчик, маааааасенький такой , можно? Ну, на крайняк, ссылочку...

← →
Sandman25 © (2003-07-03 12:57) [3]

Уберите FLabel.
Надо просто:
Font.Color...
Font.Style...

http://www.swissdelphicenter.ch/en/showcode.php?id=1068

← →
Сушняк (2003-07-03 13:09) [5]

Сенькью вери матч за ссылку. ;)

Проблема с написанием компонента. Найти похожие ветки