Главная страница
    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.44 MB
Время: 0.021 c
1-58049
Merry
2002-07-01 15:26
2002.07.18
Цвет текста в DBRich


3-58025
Yang
2002-06-27 14:19
2002.07.18
DBase в Access


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


8-58236
TOLTEC
2002-03-14 04:47
2002.07.18
Что такое


14-58292
Fredericco
2002-06-21 13:07
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский