TGlyph événement OnMouseDown

Bonjour,

encore une fois version et framework de Delphi ?

Partant du principe de Rio et FMX voici une manière de faire, ici pour le onclick

Code:

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
 
type
  ThackGlyph = Class(TGlyph);  // pour accéder aux variables privées 
 
  TForm5 = class(TForm)
    Glyph1: TGlyph;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    procedure Glyph1OnClick(Sender: TObject);  // TEventNotify
 
  public
    { Déclarations publiques }
  end;
 
var
  Form5: TForm5;
 
implementation
 
{$R *.fmx}
 
procedure TForm5.FormCreate(Sender: TObject);
begin
THackGlyph(glyph1).HitTest:=true;  // pour avoir une réaction à la souris
THackGlyph(glyph1).OnClick :=Glyph1OnClick; // TEventNotify
end;
 
procedure TForm5.Glyph1OnClick(Sender: TObject);
begin
Showmessage('Hello world');
end;