Discussion :

[Ph. B.]

Pour ceux qui auront la gentillesse et la patience nécessaires, et en réponse à Adnotor, j'ai pu avancer un peu dans la localisation du bug. Voici ce que j'ai fait et que vous devriez pouvoir reproduire :
...

C'est ce que j'ai fait après vous avoir demandé un mini projet... et bien sur je ne reproduis absolument pas ce que vous constatez...
Bon, après on peut dire que j'ai testé avec D7 plutôt que D4, mais bon...

P7/ Cliquer sur Quitter de RGMenu. Au point d'arrêt de la ligne 3 on constate que ItemIndex est revenu à 1. En tous cas c'est ce que je constate sur mon PC.

Pas moi...
Comme l'a très justement dit @AndNotOr, il est possible que la souris faiblisse sérieusement (avez vous testé avec une autre souris ? ou sur un autre PC ?)
Mais pour constater le phénomène, il faudrait également que le pointeur de la souris ait bougé vers le haut et soit placé sur l'item 1.

Complément :
Bon j'ai trouvé ceci qui pourrait peut-être correspondre et expliquer le problème : Migration de Delphi vers Kylix : Bug du TRadioGroup
Eric SIBERT dit à un moment :

...après le lancement du programme, vous appuyez sur Button2. Vous voyez le RadioGroup de l'autre fenêtre passer à "Two". Vous activez la seconde fenêtre en sélectionnant la barre de titre à la souris et vous constatez que le RadioGroup revient à "One". La même chose sous D3 et D5 (je n'ai pas de D2 ou D4 sous la main pour tester )...

Il indique aussi avoir mis un correctif de la VCL sur Delphi Bug List. Le bug existerait aussi sous D6.

[Montor]

MONTOR : excuse mon ignorance mais je ne vois pas ce que sont le mode asynchrone et PostMessage. Quelques explications seraient les bienvenues.

normalement c'est comme ca

Code :

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

Postmessage(Application.Mainform.Handle,WM_CLOSE,0,0);

[Dr.Who]

Testé sur D2009,

Le fonctionnement est bon. le bug n'apparait jamais.

que je ferme Form2 ou renvois un ModalResult=mrOk / mrAbort.

avec n'importe quel code pour gérer l'itemIndex.

[Montor]

sous D7 j'ai pu isolé le code incriminé
cette ligne déclenche l'événement click ...

Code :

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

   RGMenu.ItemIndex:= -1;

essais

Code :

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

1
2
3
4
5
6
7
8
9
 
 RGMenu.Enabled := False;
 case RGMenu.ItemIndex of
  0:Action1;
  1:Form2.ShowModal;
  2:Application.Terminate
  end;
  RGMenu.ItemIndex:= -1;
 RGMenu.Enabled := True;

[Stevens.Georges]

Un grand merci à tous pour vos contributions.

Comme l'écrit Eric Sibert cité par Philippe, il semble bien qu'il y ait un bug dans Delphi.

Comment y remédier ? Bien sûr je peux supprimer tout le code qui est dans RGMenuClick et le reporter dans l'évènement OnClick d'un bouton à coté, mais c'est moins élégant. Encore faudrait-il le tester pour être sûr que c'est parfaitement fiable.

Georges.

[Rayek]

Et pourquoi ne pas simplement désactiver le onclick avant le changement ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 RGMenu.Enabled := False;
 case RGMenu.ItemIndex of
  0:Action1;
  1:Form2.ShowModal;
  2:Application.Terminate
  end;
  RGMenu.Onclick := nil;
  RGMenu.ItemIndex:= -1;
  RGMenu.Onclick := LEvenementQuiVaBien;
 RGMenu.Enabled := True;

[Stevens.Georges]

Rayek,

C'est quoi LEvenementQuiVaBien ?

[Cl@udius]

Salut

A priori RGMenuClick.

Voir la partie interface:

Code :

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

1
2
3
4
5
6
7
8
  TForm1 = class(TForm)
    RGMenu: TRadioGroup;
    procedure RGMenuClick(Sender: TObject);  // <- ici
  private
    // ...
  public
    // ...
  end;

[Rayek]

Rayek,

C'est quoi LEvenementQuiVaBien ?

Le RGMenuClick (Je n'avais pas lu toute la discussion, je n'avais pas vu le nom de ta procédure, donc j'ai mis LEvenementQuiVaBien à la place ).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 RGMenu.Enabled := False;
 case RGMenu.ItemIndex of
  0:Action1;
  1:Form2.ShowModal;
  2:Application.Terminate
  end;
  RGMenu.Onclick := nil;
  RGMenu.ItemIndex:= -1;
  RGMenu.Onclick := RGMenuClick;
 RGMenu.Enabled := True;

[Dr.Who]

Question bête mais ... pourquoi ne pas plutôt utiliser un TGroupBox avec 3 speedbutton/button ?

ça serait déjà plus logique parce qu'un radio sous entend qu'un bouton de validation suis quelque part et non déclenche un événement aussi important que la sortie du programme

Tel que, aussi, TComboBox, TListBox, TCheckBox, TCheckListBox etc.

Bouton, Menu, short-cut = action
le reste = choix/paramétrage/vue

je voulais en parler avant, mais j'ai eu la flemme.


Admettons que tu veuille mémoriser l'index du radiogroup, problème, quand tu rouvre le programme, que tu lis l'index dans un INI et que tu le remet PAF tu déclenche l'action.

[Stevens.Georges]

Dr. WHO

Ton raisonnement est exact : un TRadioGroup sous entend en effet en principe que le choix est validé ensuite par un TButton. Reste que le code proposé par Rayek semble marcher super bien.

Merci à tous, je ne regrette pas d'avoir ouvert cette discussion fort intéressante.

Je vais la laisser ouverte encore 24 h au cas où il y aurait d'autres suggestions ou commentaires puis je la cocherai comme résolue.

Georges.

[Eric Boisvert]

Il me semble que

Code :

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

1
2
3
4
 
RGMenu.Enabled := False;
RGMenu.ItemIndex := -1;
RGMenu.Enabled := True;

est suffissant non?

[Montor]

Il me semble que

Code :

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

1
2
3
4
 
RGMenu.Enabled := False;
RGMenu.ItemIndex := -1;
RGMenu.Enabled := True;

est suffissant non?

c'était ma première conclusion et après j'ai préféré désactiver les événements de la souris dans tout la fonction ...

[Stevens.Georges]

Merci Montor et Eric.

Après essai les deux codes semblent fonctionner très correctement.

Georges.

[edam]

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.RGMenuClick(Sender : TObject);
begin
  case RGMenu.ItemIndex of
  0:Action1;
  1:Form2.ShowModal;
  2:Application.Terminate
  end;
  RGMenu.ItemIndex:= -1;
end;

tu change l’état de Rgroup dans son événement click, c'est comme coupé un branche d’arabe où tu es assis,

essaies de travailler en mode asynchrone Postmessage par exemple pour fermer la fiche principale

mais pas pour férmer, pour changer l'état de Rgroup

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure MonMessage(var msg:Tmessage);message wm_user;
begin
    RGMenu.ItemIndex:= -1;
end;
procedure TForm1.RGMenuClick(Sender : TObject);
begin
  case RGMenu.ItemIndex of
  0:Action1;
  1:Form2.ShowModal;
  2:Application.Terminate
  end;
  postmessage(handle,wm_user,0,0);
end;

[Stevens.Georges]

Merci, Edam, pour ta contribution.

Le code proposé par Montor (réponse 24) semble fonctionner parfaitement.