Pour ne pas tout mélanger je reprend ma réponse dans un nouveau thread

Voici comment créer un curseur souris personnalisé.
(l'objet Mouse sera intégré dans Flash8.pas lors de la prochaine mise à jour)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
43
44
45
46
47
 
program curseur;
 
uses
  Flash8;
 
type
  Mouse = external class
  { events:
    procedure onMouseDown;
    procedure onMouseMove;
    procedure onMouseUp;
    procedure onMouseWheel(delta: Number = 0; scrollTarget: TObject = nil);
  }
    class procedure addListener(listener: TObject);
    class function hide: Number;
    class function removeListener(listener: TObject): Boolean;
    class function show: Number;
  end;
 
  TCursor = class(MovieClip)
    constructor Create;
    procedure onMouseMove;
  end;
 
constructor TCursor.Create;
begin
  inherited Create(nil, 'Cursor', 1);
  lineStyle(1,0);
  beginFill($ffffff);
  lineTo(+5,+10);
  lineTo(+10,+5);
  lineTo(0,0);
  Mouse.addListener(Self);
  Mouse.Hide;
end;
 
procedure TCursor.onMouseMove;
begin
// on prend la position de la souris relativement à _root
  _x := _root._xmouse;
  _y := _root._ymouse;
end;
 
begin
  TCursor.Create;
end.