Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.18;
Скачать: CL | DM;

Вниз

Создаю компонент, на основе TImage...   Найти похожие ветки 

 
DNT ©   (2002-07-05 21:57) [0]

Создаю компонент, на основе TImage.
Он должен содержать еще один TPicture.
Приведенный ниже код не работает, объясните плз.

unit ImgEx;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, Graphics, ExtCtrls;

type
TImgEx = class(TImage)
private
{ Private declarations }
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
FDoHighlight: Boolean;
FPicOn:TPicture;
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property DoHighlight: Boolean read FDoHighlight write FDoHighlight;
property PicOn: TPicture read FPicOn write FPicOn;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Additional", [TImgEx]);
end;

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

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

end.


 
MBo ©   (2002-07-06 06:59) [1]


procedure SetPicOn(Value: TPicture);
constructor Create(AOwner:TComponent);override;

property PicOn: TPicture read FPicOn write SetPicOn;

constructor TImgEx.Create(AOwner: TComponent);
begin
inherited;
FPicOn := TPicture.Create;//как же без этого ;))
//посмотри исходник TImage, добавь FPicOn.OnChange и т.д.
end;

procedure TImgEx.SetPicOn(Value: TPicture);
begin
FPicOn.Assign(Value);
end;


 
DNT ©   (2002-07-06 11:49) [2]

TNX!



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

Текущий архив: 2002.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-57946
Zelius
2002-06-25 14:10
2002.07.18
По поводу индексов CDX для Foxpro


1-58184
Cherepovets
2002-07-05 11:06
2002.07.18
Я все по тому же вопросу.


1-58068
werr
2002-07-05 17:04
2002.07.18
Как узнать каким юзером занят файл?


4-58366
SergeyDon
2002-05-16 10:08
2002.07.18
Новый день?


1-58144
jen_bond
2002-07-05 10:54
2002.07.18
PrintScreen