Discussion :

[julius1983]

Salut à tous,

Voici mon problème :

j'esssaie de mettre du code dans l'évenement OnMouseClick d'un TGlyph.
Le problème étant que dans l'inspecteur d'objets, il n'y a pas d'evenement OnMouseClick.

Cependant lorsque je rentre Glyph1. dans le code, celui-ci me sort toute une série d'événements.
Si quelqu'un pouvait m'expliquer comment faire marcher les événements OnMouseDown, OnMouseMove, MouseButton pour un TGlyph?

Merci à vous,

A+

[SergioMaster]

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 :

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
 
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;