Příklad
class = TObrazec
procedure Nakresli; virtual;
(…)
class = TKruh(TObrazec)
procedure Nakresli; override;
předchozí snímek
následující snímek
Zpět na první snímek
Zobrazit verzi grafiky