Потребность в новом свойстве

[Djem1991]

Добрый день!

Пишу программку и появилась потребность в новом свойстве у имэйджа, такого же как свойство тэг.
Не подскажите,можно ли его создать или придётся писать свой компонент на основе ТИмэйдж?

[Alter]

Это хотели?

unit ExtrImage;

interface

uses
  Windows, SysUtils, Classes, Controls, ExtCtrls, Jpeg;

type TIntMas = record
    A1,A2,A3,A4 :Integer;
End;

type
  TExtrImage = class(TImage)
  private
    { Private declarations }
  protected
   FMas :TIntMas;
    { Protected declarations }
  public
   Constructor Create(AOwner: TComponent); override;
   Destructor Destroy; override;
    { Public declarations }
  published
   property TagMas : TIntMas Read FMas Write FMas;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Additional', [TExtrImage]);
end;

Constructor TExtrImage.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 ZeroMemory(@FMas, SizeOf(TIntMas));
end;

Destructor TExtrImage.Destroy;
begin
 inherited Destroy;
end;

end.

Пользование:

procedure TForm1.FormCreate(Sender: TObject);
begin
 ExtrImage1.TagMas.A1 := 0;
 ExtrImage1.TagMas.A2 := 1;
 ExtrImage1.TagMas.A3 := 2;
 ExtrImage1.TagMas.A4 := 3;
end;

[JTG]

В новых делфях можно "на ходу", через хелперы, что-то вроде

TImageClassHelper = Class Helper For TImage
  private
     fNewProperty: integer;
  published
    property NewProperty: integer read fNewProperty write fNewProperty default 0;
 End;

[Djem1991]

Большое спасибо всем)
щас попробую разобраться в коде)
+1 вам,спасиб)

[JTG]

А не, вообще так не выйдет В хелпере можно добавить только свойство или метод, а новые данные (поле) не даёт. Придётся писать потомка

[Квэнди]

Ну так и добавь в хелпере новое поле и пользуй его =) Хотя вобще использование хелперов вещь далеко не безопасная )

[JTG]

Так нельзя же, [DCC Error] Unit1.pas(20): E2169 Field definition not allowed after methods or properties

[Квэнди]

Ну не совсем так.
Существуют классовые методы, свойства и поля, поэтому вполне можно написать так:

TImageClassHelper = Class Helper For TImage
  private
     class var fNewProperty: integer;
  published
    class property NewProperty: integer read fNewProperty write fNewProperty default 0;
 End;

В этом случае мы имеем доступ к св-ву NewProperty и без создания экземпляра класса TImage