Главная страница
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.043 c
3-55390
Vladislav
2003-06-21 16:40
2003.07.17
SQLScript


3-55418
AkaSaint
2003-06-21 15:36
2003.07.17
TDataSetProvider.UpdateMode = upWhereKeyOnly не действует


14-55758
urd
2003-07-03 09:03
2003.07.17
select ... from ... не работает


1-55645
Mazer
2003-07-04 11:39
2003.07.17
проблема с доступом к переменной в заголовке процедуры...


4-55903
hedgehog
2003-05-16 12:57
2003.07.17
DllEntryPoint