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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
program Project1;
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
uses
Flash8;
type
TClassAncetre=class(movieclip)
procedure draw;virtual;abstract;
end;
TClassFille=class(TClassAncetre)
procedure draw;override;
end;
procedure TClassFille.draw;
begin
beginFill($ff0000);
lineto(100,0);
lineto(100,100);
lineto(0,100);
end;
var mc:TClassFille;
begin
mc:=TClassFille.Create(_root,'essai_abstract',0);
with mc do
begin
draw;
_x:=100;
_y:=100;
end;
end. |
Partager