Исходники предка

← →
break (2005-06-03 09:37) [0]

Надо написать наследника от Image с событиями mouseleave и mouseenter. Как посмотреть как реализованы данные события, например у label? Грубо говоря как открыть исходники Label?

← →
Anatoly Podgoretsky © (2005-06-03 09:38) [1]

Любым редактором можно.

← →
break (2005-06-03 09:51) [2]

так а где он блин , этот исходник?

← →
Antonn © (2005-06-03 09:52) [3]

хм...

unit ImageAdv;

interface

uses

WinTypes, WinProcs, Classes, Graphics, Controls, Messages,
Menus, Stdctrls, SysUtils,ExtCtrls;

type

TImageAdv = class(TImage)
private
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
protected
public
published
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
end;

implementation

procedure TImageAdv.CMMouseEnter(var Message: TMessage);
begin
if Assigned(FOnMouseEnter) then
FOnMouseEnter(Self);
inherited;
end;

procedure TImageAdv.CMMouseLeave(var Message: TMessage);
begin
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
inherited;
end;

end.

← →
Danilka © (2005-06-03 09:56) [4]

> Грубо говоря как открыть исходники Label?

Один из самых быстрых вариантов: нажми Ctrl, затем в своих исходниках, например, в описании класса формы, и ткни мышой в TLabel. Ларчик и откроется.

← →
break (2005-06-03 09:57) [5]

Спасибо Antonn, но проблем с написанием самого наследника нет (полно литературы).
Есть проблема, в какой директории посмотреть исходники нужного мне компонента VCL. Облазил уже все... найти не могу!

← →
break (2005-06-03 09:59) [6]

Огромное тебе спасибо Danilka!
Ты не представляешь как долго я искал где этот гребаный ларчик открывается!

Исходники предка Найти похожие ветки