🚀 go-pugleaf

Dnia 20-01-2012 o 18:04:06 aaaa <aaaa@aaaaaaaaaaaaaaaaaaa.com> napisał(a):

>>> Wczytuje sobie obrazek w moim formacie (TMojImage dziedzidzacy po
>>> TBitmap) do TPicture.
>>> Potem chce go zapisac. Odpalana jest metoda Assign.
>>> Dlaczego ponizsze odpala metode SaveToFile z TMojImage a nie z
>>> oryginalnego TBitmap?
>>>
>>> procedure TMojImage.Assign(Source: TPersistent);
>>> begin
>>> TBitmap(Graphics.TPicture(Source).Bitmap).SaveToFile('aaaaaaaaaa.bmp');
>>> end;
>>>
>>> Jak wymusic odpalenie SaveToFile z TBitmap?
>>>
>>
>> A o słowie kluczowym inherited Pan słyszał ?
>
> Ale inherited wywoła procedurę rodzica, a mi chodzi o procedurę dziadka.

type TBaseClass = class(TObject)
public
   procedure proc1;
   procedure proc2; virtual;
end;

type TDerivedClass = class(TBaseClass)
public
   procedure proc1; // hides TBaseClass.proc1
   procedure proc2; override;
end;

var obj : TBaseClass;

begin
obj := TDerivedClass.Create();
obj.proc1; // TBaseClass.proc1
obj.proc2; // TDerivedClass.proc2
end;

O to chodzi?

Pozdrawiam -- Spook.

-- 
Używam klienta poczty Opera Mail: http://www.opera.com/mail/