Windows XP Delphi 4
Bonjour à Tous,
Sur ma fiche principale Form1 j'ai un RadioGroup RGMenu auquel est associé le code suivant :
Je clique sur le deuxième item de RGMenu et je vais bien sur Form2. Je ferme Form2 et je reviens bien sur Form1 et comme prévu rien n'est coché sur RGMenu. Si je clique maintenant sur le troisième item de RGMenu, la plupart du temps l'application se ferme normalement mais parfois ça retourne sur Form2. En fermant Form2 je reviens à la situation précédente si bien qu'on ne peut plus en sortir.
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;
En procédant pas à pas à la fermeture de Form2 je constate que je reviens à la ligne 8 et que RGMenu.ItemIndex prend bien la valeur -1. Mais quand je clique sur le troisième item je constate qu'à la ligne 3 RGMenu.ItemIndex de case est revenu à 1 ce qui bien sur provoque le retour sur Form2.
Merci d'avance à qui pourra m'éclairer.
Partager