Текущий архив: 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.014 c