Скачать: CL | DM;

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

← →
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!
Ты не представляешь как долго я искал где этот гребаный ларчик открывается!

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c