Форум: "Основная";
Текущий архив: 2003.07.17;
Скачать: [xml.tar.bz2];
Вниз
Проблема с написанием компонента. Найти похожие ветки
← →
Сушняк (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c
