Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    octobre 2006
    Messages
    51
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2006
    Messages : 51
    Points : 20
    Points
    20

    Par défaut TGlyph événement OnMouseDown

    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+

  2. #2
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    9 833
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 9 833
    Points : 24 255
    Points
    24 255
    Billets dans le blog
    17

    Par défaut

    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;
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Berlin, Tokyo) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd

Discussions similaires

  1. Pas d'événement OnClose quand on arrête W2K
    Par Altau dans le forum C++Builder
    Réponses: 9
    Dernier message: 26/01/2009, 19h36
  2. exploiter un évènement d'un sous composant dans un
    Par bjl dans le forum Composants VCL
    Réponses: 2
    Dernier message: 20/12/2002, 17h44
  3. Modification de l'évènement OnClick
    Par MrJéjé dans le forum C++Builder
    Réponses: 9
    Dernier message: 22/08/2002, 13h52
  4. [Kylix] DELPHI6-CLX problème Onmousedown ....
    Par Bodin Yvon dans le forum EDI
    Réponses: 2
    Dernier message: 22/07/2002, 12h01
  5. Redéfinir l'événement OnExit de mon composant TEditFloat
    Par Seb des Monts dans le forum C++Builder
    Réponses: 5
    Dernier message: 18/06/2002, 17h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo