Autre problème curieux impossible à maitriser

[colorid]

Bonjour

Sur une form j'ai un updown que je n'ai volontairement pas associé. Sur le onclick de ce updown j'affiche un showmessage. Aucune autre action ! à la fermeture de la form le showmessage s'affiche impossible de la fermer !

Code :

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
unit Unit9;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;
 
type
  TForm9 = class(TForm)
    UpDown1: TUpDown;
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form9: TForm9;
 
implementation
 
{$R *.dfm}
 
procedure TForm9.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
   ShowMessage('Blabla');
end;
 
end.

Essayez vous verrez !

[ALWEBER]

Effectivement je constate le problème. Mais ce composant est fait pour être associé à un autre composant comme un TEdit ( propriété associate) je ne comprend donc pas l'usage du ShowMessage.

[colorid]

J'ai retiré l'association parce que je pensais qu'elle était à l'origine du problème.
C'est à dire qu'avec ou sans association le résultat est le même.
Le showMessage est utilisé ici comme il l'est pour n'importe quel composant pour avertir de l'incidence d'une action sur le composant

[tourlourou]

idem ? avec :

Code :

1
2
3
4
5
procedure TForm9.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  inherited;
   ShowMessage('Blabla');
end;

[colorid]

Qui trouvera comment remédier à ce curieux comportement qui n'est pas loin d'un bug Delphi !
N'est-ce pas Embarcadero ?

[DomDA91]

Idem avec Delphi 4

Idem avec Application.MessageBox

Si on clique n'importe où dans la fenetre, on peut observer qu'un des boutons du controle UpDown s'enfonce et l'événement est redéclenché.

Si on clique plus bas que le controle, c'est le bouton bas qui s'enfonce.

Très bizare!!

[tourlourou]

en attendant, un patch pourrait consister à positionner dans le OnCloseQuery un flag à tester dans le TUppDown.Click, ou à y interdire son déclenchement en faisant pointer ce OnClick sur nil