Sınıflarda override property kullanmak mümkün mü?

[aseka]

--

[selimr]

beyaz renge boyama olayını SetGenislik proceduru yerine paint de yaparsan her değişiklikte boyama gerçekleşir sanırım..

[aseka]

--

[selimr]

aslında diğer işlemleride paint olayında yapabilirsin diye düşünüyorum çünkü her değişiklik olduğunda boyama yeniden yapılacak ve bu arada senin diğer işlemlerinde yapılmış olacak..

illede sadece boyutlar değiştiğinde bu işlemleri yapmasını istiyorsan resize olayını kullanabilirsin diye düşünüyorum..

[undefined]

Property override gibi birşeye hiç rastlamadım. Fakat getter ve setter fonksiyonları atasınıfta virtual tanımlanmışsa, bunları override edip istediğiniz amaca ulaşabilirsiniz.

[ulu coder]

"property Width: Integer read GetWidth write SetWidth;" şeklinde tanımlayın.

Kod: Tümünü seç

function BilesenAdi.GetWidth: Integer;
begin
  Result := inherited Width;
end;

procedure BilesenAdi.SetWidth(Value: Integer);
begin
  inherited Width := Value;
  //+ beyaza boyama fonksiyonu
end;

Kolay gelsin...

[aseka]

--

[sabanakman]

Aslında bu çözüm gayet iyi bir çözüm. TImage için bir override operasyonu ile tüm mesele hallolabilir. Sadece paint metodunun override olması yeterli başka hiç bir tanıma gerek yok.

Kod: Tümünü seç

TWallPaper=class(TImage)
public
  procedure Paint; override;
end;

procedure TWallPaper.Paint;
begin
  inherited Paint;
  //Boyama kodları
end;

bu şekilde tasarlarsan sadece Width değil diğer tüm özellik değişimlerinden tetiklenecektir. Bir zamanlar bu şekilde tasarlayarak duvar kağıdı bileşeni yazmıştım.