image bileşenine özellik ekleme?

[cfyasar]

image e şöyle özellikler eklemek istiyorum.
derlemede hata vermiyor ama bunlarıda eklememe rağmen özellik olarak kullanamıyorum.

Kod: Tümünü seç

  TMyImage =class(TImage)
  private
    FFilePath:string;
    FData:word;
  public
    property Data:word read FData write Fdata;
    property FilePath:string read FFilePath write FFilePath;
  end;

[vkamadan]

merhaba ,

Kod: Tümünü seç

type
  TMyImage =class(TImage) 
  private
   FFilePath:string;
   FData:word;    
  published
  property Data:word read FData write Fdata;
  property FilePath:string read FFilePath write FFilePath;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TMyImage]);
end;

şeklinde denermisin , yada Class ının tam kodunu yazarmısın.
iyi çalışamalar.

[cfyasar]

bu kodu component oluşturmak için kullanmıyorum. programın ana formunun üzerinde tanımlıyorum ve program içerisinde kullanmak istiyorum.

[aslangeri]

s.a.
özellik olarak kullanamıyorum derken object insp. de göremiyorum demiyorsunuzdur umarım. siz comp tanımlar gibi özellik eklemişsiniz.
comp olarak tanımlamanız bence daha doğrum ama yok öyle olmaz diyorsanız. tanımlamada şöyle bir değişiklik yaprak kullanabilmeniz lazım.

Kod: Tümünü seç

type
  TMyImage =class(TImage) 
   FilePath:string; 
   Data:word;    
  end;
var
resim:Tmyimage;
begin
resim.create işlemleri
resim.filepath:=XXXXXXXX;
resim.data:=9999999;
end;

kolay gelsin.