Discussion :

[Brupio]

Bonjour,

J'ai pas mal cherché, mais là je sèche : comment peut-on attendre que l'utilisateur appuie sur un bouton pour continuer l'execution d'une fonction ?


Dans mon programme, j'ai une fonction Choix qui affiche un TRadioGroup et un bouton. Lorsque l'utilisateur appuie sur le bouton, la fonction renvoie l'état du TRadioGroup, ce qui permet d'avoir une fonction générique pour recueillir le choix d'un utilisateur.
Si attendre l'appui sur le bouton n'est pas possible, comment est-ce que je pourrais m'en passer ? Je ne voit pas non plus comment faire.

[Clandestino]

Bonjour.
Tu peux, par exemple, ecrire ta fonction en deux parties et créer un bouton inactif.
A la fin du traitement de ta première fonction tu actives le bouton, et tu lances la deuxième partie sur le click de ce dernier...

[Brupio]

Bonjour,

Merci de ton aide.

J'ai réussit à me débrouiller comme tu le suggère, mais je trouve ça beaucoup moins élégant qu'une instruction permettant d'attendre : ma fonction choix peut-être appelé de plusieurs endroits différents, et ils faut donc passer des paramètre permettant de d'appeller la bonne deuxième partie de la fonction lors du clic sur le bouton. Enfin s'il n'y a pas d'autre solution...

[tonton fred]

Bonjour,
Je debute en Pascal mais pourquoi pas quelque chose comme ca:

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
var ValiderChoix:boolean;
function ....
ValiderChoix:=False;
//affichage du TRadioGroup et du bouton
 
 while ValiderChoix = false do
  //rien
 end;
 
//suite de la fonction
end;
 
Procedure BoutonClick...
begin
ValiderChoix=Not(ValiderChoix);
end;

Encore une fois, je debute Mais il me semble que d'un point de vue algoritmique ca se tient.

[Clandestino]

Voici la methode pour récupérer l'état des boutons d'un Tradiogroup :
la propriété TitemIndex contient le numero du bouton selectionné

Voici un exemple avec un Tradiogroup contenant trois boutons, jaffiche leur état dans une TStatutBar...

Pour se faire, j'affiche l'état à la création de la fenetre, puis à chaque click sur le TradioGroup :

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
var
  Form1: TForm1; 
  RadioButonEnCours : byte;
implementation
 
{ TForm1 }
 
procedure RaffraichirAffichage;
begin
    RadioButonEnCours := form1.radiogroup1.ItemIndex;
    form1.Statusbar1.panels[0].text := '   le controle en cours est le bouton '+ inttostr(RadiobutonEnCours);
end;
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
    RaffraichirAffichage
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
    RaffraichirAffichage
end;

Voilà, tu sais récupérer le numéro du bouton en cours, à toi de coder la suite...

Bonne programmation

Clandestino