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 :
Dans le OnClick du SpeedButton :
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;
Quand je clique sur le SpeedButton, j'ouvre le Opendialog
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;
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
Partager