1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
{$ifdef fpc}{$mode objfpc}{$endif} type TGraphicControl = class end; TButton = class end; TBitBtn = class(TButton) private published end; TSpeedButton = class(TGraphicControl) published end; TMyButton = class(TBitBtn); const MyConst = 1; begin end.