IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

 Delphi Discussion :

[XE2] Pb de déclenchement de MouseUp


Sujet :

Delphi

  1. #1
    Membre expert
    Avatar de Charly910
    Homme Profil pro
    Ingénieur TP
    Inscrit en
    Décembre 2006
    Messages
    2 339
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur TP
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Décembre 2006
    Messages : 2 339
    Points : 3 107
    Points
    3 107
    Par défaut [XE2] Pb de déclenchement de MouseUp
    Bonjour,

    J'ai un petit problème, et j'ai fait une petite appli pour l'isoler :

    Ma form principale Form2 est en plein écran et je pose dessus un Topendialog et un TSpeedButton

    Puis dans le MouseUp de Form2 :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
       ShowMessage('Mouse Up activé') ;
    end;
    Dans le OnClick du SpeedButton :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    procedure TForm2.SpeedButton1Click(Sender: TObject);
    Var
       i : Integer ;
    begin
       i := 0 ;
       If(OpenDialog1.execute) Then  i := 1 ;
    end;
    Quand je clique sur le SpeedButton, j'ouvre le Opendialog

    Si je double clique sur un fichier, l'OpenDialog se ferme, et le Mouse up de Form2 se produit.

    Est ce normal ? et comment l'éviter, car cela me gêne dans mon appli

    Merci

    A+

    Charly

  2. #2
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Février 2008
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 42
    Points : 33
    Points
    33
    Par défaut
    Oui c'est normal, tu cliques sur le bouton de la form donc tu vas forcement le relâché pour explorer ton opendialog, l'opendialog étant bloquant pour le code de la form, l’évènement up ne se produit qu'à la fermeture de l'opendialog. Si on veut le bloquer un petit boolean fera bien l'affaire :

    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
     
     
    var 
    bloquer : boolean ;
     
    procedure TForm2.FormCreate(Sender: TObject);
    begin
    bloquer:=False;
    end;
     
    procedure TForm2.SpeedButton1Click(Sender: TObject);
    Var
       i : Integer ;
    begin
       i := 0 ;
       bloquer:=True;
       If(OpenDialog1.execute) Then  i := 1 ;
    end;
     
    procedure TForm2.FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      if bloquer=False then ShowMessage('Mouse Up activé') ;
    end;

  3. #3
    Membre expert
    Avatar de Charly910
    Homme Profil pro
    Ingénieur TP
    Inscrit en
    Décembre 2006
    Messages
    2 339
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur TP
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Décembre 2006
    Messages : 2 339
    Points : 3 107
    Points
    3 107
    Par défaut
    Merci Yvonic,

    c'est effectivement comme cela que j'avais fait pour contourner le problème, mais je ne trouvai cela pas très normal, car le relachement de la souris se produit pendant le double clic, lorsque l'openDialog n'est pas encore fermé (ou est encore ouvert !)

    Je ne comprends donc pas bien pourquoi cela affecte la fenêtre principale qui est alors en arrière plan ?

    Charly

    PS : j'ai vérifié que le mouseUp ne se produit pas sur le relachement du SpeedButton, mais au double clic sur la fenêtre de l'opendialog (quant on choisit un fichier par exemple)

    PS2 : Si je fait un simple clic pour choisir un fichier dans le TOpenDialog, et si je clique sur le bouton "Ouvrir" pour fermer le OpenDialog, le MouseUp ne se produit pas (ni le ShowMessage) ???

  4. #4
    Nouveau membre du Club
    Profil pro
    Inscrit en
    Février 2008
    Messages
    42
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 42
    Points : 33
    Points
    33
    Par défaut
    Effectivement je viens de faire le test, sur delphi7, il se passe exactement la même chose. En faite (fait le test), si tu fais un double click dans l'opendialog en laissant le bouton enfoncé lors du deuxième clique la fenêtre se ferme mais l’évènement ne se produit pas, dès que tu relâche, ça apparaît. Je pense donc que la fenêtre se ferme à l'enfoncement du deuxième clique ce qui fait que le relâchement du bouton se fait sur la form principale.

    Il n'y aura donc pas d'autre solution que celle citée je pense.

  5. #5
    Membre expert
    Avatar de Charly910
    Homme Profil pro
    Ingénieur TP
    Inscrit en
    Décembre 2006
    Messages
    2 339
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur TP
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : Décembre 2006
    Messages : 2 339
    Points : 3 107
    Points
    3 107
    Par défaut
    Merci d'avoir cherché

    Je reste sur ma faim ....

    A+

    Charly

Discussions similaires

  1. [C#] Problème de déclenchement
    Par dtavan dans le forum Windows Forms
    Réponses: 6
    Dernier message: 04/03/2005, 16h42
  2. [VB.NET] Déclenchement d'évènement d'un TextBox
    Par leSeb dans le forum Windows Forms
    Réponses: 11
    Dernier message: 08/10/2004, 12h40
  3. Déclenchement sur select
    Par sdinot dans le forum PostgreSQL
    Réponses: 6
    Dernier message: 02/04/2004, 12h52
  4. 1er déclenchement d'un trigger d'auto-incrément
    Par babylone7 dans le forum Administration
    Réponses: 11
    Dernier message: 11/03/2004, 17h21
  5. Déclenchement Programme sur Virtual Key
    Par Tom-G dans le forum API, COM et SDKs
    Réponses: 9
    Dernier message: 09/05/2003, 13h58

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