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 42
|
program Project2;
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
uses
Flash8;
type
TVarMovie = class
m : MovieClip;
end;
procedure createmovie1(var m:MovieClip);
begin
m := MovieClip.Create(_root, '', 1);
end;
procedure createmovie2(p: TVarMovie);
begin
p.m := MovieClip.Create(_root, '', 1);
end;
var
p: TVarMovie;
m: MovieClip;
begin
createmovie1(m); // ça ne fonctionne pas !
m.lineStyle(1,clBlue);
m.lineTo(100,100);
p := TVarMovie.Create; // utilisation d'une classe temporaire
createmovie2(p);
m := p.m; // pour récupérer le paramètre modifié
m.lineStyle(1,clRed);
m.moveTo(100,0);
m.lineTo(0,100);
end. |
Partager