Bileşen İçinde Veri Saklama

[SimaWB]

Form üzerinde kullandığınız bir bileşen içinde farklı veriler saklama ihtiyacı olmuştur. Bunun için çeşitli yöntemler mevcut. Bunlar bir tanesi tüm bileşenlerde bulunan Tag özelliğini kullanmak:
http://www.delphican.com/butonlarla-kate...9#pid22009

Farklı bir yöntem de bileşene yeni bir özellik eklemek. 
Yukarıdaki linkte verilen örnekten gidecek olursak; Buton içerisinde değişik bilgiler (TVeri tipinde) saklamak istiyoruz. Bunun için TButton sınıfına özellik ekleme yapmalıyız:

 TButton = class(StdCtrls.TButton)
 private
   FVeri: TVeri;
 public
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;

   property Veri: TVeri read FVeri write FVeri;
 end;

implementation

{ TButton }

constructor TButton.Create(AOwner: TComponent);
begin
  inherited;
  FVeri := TVeri.Create;
  FVeri.id := 0;
  FVeri.Name := '';
end;

destructor TButton.Destroy;
begin
  FVeri.Free;
  inherited;
end;

TButton oluşturulurken kendi sınıfımızı oluşturup başlangıç değerlerini atıyoruz. Buton yok edilirken de kendi sınıfımızı hafızadan serbest bırakıyoruz.

Not: Bu eklemeyi muhakkak unitin en üst kısmında yapmalıyız!

Artık forma Button1 adında bir TButton eklediğinizde kodlarımız içinde yeni özelliğimizi şöyle kullanabiliriz:

Button1.Veri.id := 100;
Button1.Veri.Name := 'SimaWB';

[arsl01]

Bunu ogrendigim cok iyi oldu hocam tesekkurler

[uparlayan]

Interposer / Interceptor sınıfların nasıl kullanıldığı ile ilgili faydalı bir makale aşağıdaki linkte yer alıyor,

http://www.delphican.com/interposer-clas...nilir.html

[3ddark]

(02-11-2018, Saat: 17:32)uparlayan Adlı Kullanıcıdan Alıntı: Interposer / Interceptor sınıfların nasıl kullanıldığı ile ilgili faydalı bir makale aşağıdaki linkte yer alıyor,

http://www.delphican.com/interposer-clas...nilir.html

Hocam ben sizin makale linkini verecektim. Hızlı davrandınız. 

[yhackup]

Çok sık kullandığım bir şey, dediğiniz gibi bazen yetmiyor

ancak ben constructor kullanmadan kullanıyorum, gerek olmadığında bu bir probleme yol açmıyor ? 

  TMyHTTP = class(TIdHTTP)
  public
   FileSize: Int64;
   MBar: TProgressBar;
 end;

[SimaWB]

@uparlayan kusura bakmayın sizin makale ile aynı konu olmuş ama yine de bulunmasında fayda olacağını düşündüğüm için burayı silmiyorum

---

O zaman farklı bir bakış açısı daha ekleyelim. Saklamak istediğim ek özellikleri barındırmak için Class yerine Record kullanırsak Create / Free derdinde de kurtulmuş oluruz:

type
  TVeri = record
    Id: Integer;
    Name: String;
  end;

  TButton = class(StdCtrls.TButton)
  private
    FVeri: TVeri;
  public
    property DbId: Integer read FVeri.Id write FVeri.Id;
    property DbName: String read FVeri.Name write FVeri.Name;
  end;

Bu şekilde bir tanımlama yaptığımızda implementation bölümünde ekstra bir şey yapmaya gerek kalmaz 

Artık form üzerindeki buttonlarımızın ekstra özellikleri var:

Button1.DbId := 100;
Button1.DbName := 'SimaWB';

[uparlayan]

(02-11-2018, Saat: 17:47)SimaWB Adlı Kullanıcıdan Alıntı: @uparlayan kusura bakmayın sizin makale ile aynı konu olmuş ama yine de bulunmasında fayda olacağını düşündüğüm için burayı silmiyorum

Estağfurullah, o konu benim tekelimde değil, ben sadece benim makalede biraz daha etraflıca anlatıldığı için konuya ilgisi olanların orayı da okumasında fayda olduğunu düşündüğüm için paylaşım yaptım, tabii ki herkes / hepimiz benzer konular yazabiliriz, sıkıntı yok

+ yaptığınız ekleme de güzel bir öneri, tebrik ederim.

[malitutuncu]

Çok yararlı bir makale olmuş , emeği geçen herkese teşekkürler.

Bunu fmx tarafında listview dynamic appearance içine ekledigimiz itemler içinde yapabilirmiyiz.

[Fesih ARSLAN]

(02-11-2018, Saat: 18:40)malitutuncu Adlı Kullanıcıdan Alıntı: Çok yararlı bir makale olmuş , emeği geçen herkese teşekkürler.

Bunu fmx tarafında  listview dynamic appearance içine ekledigimiz itemler içinde yapabilirmiyiz.

Her item, class yapısında olduğu için item'lara da uygulanabilir.

[uparlayan]

(02-11-2018, Saat: 18:40)malitutuncu Adlı Kullanıcıdan Alıntı: Çok yararlı bir makale olmuş , emeği geçen herkese teşekkürler.

Bunu fmx tarafında  listview dynamic appearance içine ekledigimiz itemler içinde yapabilirmiyiz.

Evet, uygulayabilirsiniz, tasarım aşamasında görsel bir etki gözükmez fakat runtime'da etkisini görrüsünüz.