[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:
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:
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