Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];

Вниз

Создаю компонент, на основе 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
1-58206
Jmenya
2002-07-06 14:42
2002.07.18
Уважаемые Мастера .....


1-58165
^Sanya
2002-07-05 17:13
2002.07.18
Delphi и MSOffice:


1-58147
diww
2002-07-05 13:09
2002.07.18
Как узнать разделитель для дат в Windows?


1-58223
Loco
2002-07-06 19:53
2002.07.18
Формы


3-57963
Oleon
2002-06-24 11:39
2002.07.18
Помогите, пожалуйста, укорить работу.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский