Problème d'appel d'affichage de messages dans évènement TUpDown

**the_clansman** · 03/02/2008, 18h53

Bonjour à tous,

J'ai fait une rapide recherche sur Internet et sur ce forum mais j'ai pas trouvé de réponses à ma question. Peut être, n'ai-je pas tapé les mots justes

Voici mon problème :

J'ai un composant TEdit associé à un composant TUpDown.

L'évènement OnClick de TUpDown est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  If (UpDown1.Position = 10) Then
  Begin
    MessageDlg('Position est à 10', mtWarning,[mbOk],0);
  End;
end;

Difficile de faire plus simple

Quand la position du updown atteint 10, on a l'affichage de la 'Message Dialog'...

...sauf que, sitôt appuyé sur le bouton ok du message box, quand on clique sur la forme principale, ça clique automatiquement sur le TUpDown pour ajouter ou retrancher une unité supplémentaire

Je comprends pas pourquoi, ni comment s'affranchir de ce que je qualifierais volontiers de bug

L'un de vous a-t-il déjà expérimenté cela ?

Pour info, le contenu total de l'unité qui est super classique :

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
34
35
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    UpDown1: TUpDown;
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  If (UpDown1.Position = 10) Then
  Begin
    MessageDlg('Position est à 10', mtWarning,[mbOk],0);
  End;
end;
 
end.

**ero-sennin** · 03/02/2008, 20h36

Salut,

Heu, chez moi ça fonctionne parfaitement

Je n'arrive pas à reproduire ton soucis...

**the_clansman** · 03/02/2008, 21h28

J'ai le même bug avec un Delphi 4 sous Windows 2000 et un Delphi 7 sous Windows XP et pas avec la même machine...

Y'a donc automatiquement un bug...

Je le répète : c'est juste après l'affichage de la Dialog Box : quand on clique sur la forme (MAIS PAS SUR LA TUPDOWN) ou à côté, un clic virtuel est fait sur le TUpDown provoquant un changement de position supplémentaire...