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

Вниз

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

 
Сушняк   (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...


 
MBo ©   (2003-07-03 12:57) [4]

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


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

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



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

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

Наверх




Память: 0.47 MB
Время: 0.026 c
1-55599
tm
2003-07-03 12:40
2003.07.17
Исчезает из формы StatusBar, при разв. окна и обрат. опер.


14-55807
Кен
2003-06-19 04:48
2003.07.17
Установил Дельфи 7 трайальную версию. Она меня поблагодарила за


14-55796
uw
2003-06-30 16:42
2003.07.17
Visual Studio .NET


6-55674
Sa
2003-05-08 23:55
2003.07.17
Реализация КЛИЕНТА И СЕРВЕРА


14-55848
shark
2003-07-01 18:02
2003.07.17
Массив