Discussion :

[tchimou]

salut à tous!
voici j'ai un problème avec une de mes feuilles dans mon programme.
voici je gère la même feuille avec deux boutons différents ; je voudrais changer le contenu de cette feuille chaque fois que je clique sur l'un des boutons.
Alors dans l'événementiel OnShow de cette feuille , je pose une condition pour gérer les deux boutons afin d'avoir des changements sur ma feuille, mais rien qui marche.

Code :

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

1
2
3
if GestionForm.detailGerant.Click then
 begin
 end;

GestionForm est la feuille qui contient les boutons, et je pose cette condition dans l'evenement OnShow de l'autre feuille.
detailGerant est le nom du bouton en question
Mais il me marque une erreur " le type d'expression doit être boolean"
je ne sais quelle condition je dois poser dans cette feuille pour gerer les deux boutons.
Merci d'avance pour votre aide

[ebastien]

Bonjour,
C'est normal : L'aide Delphi sur TButton.Click donne :

Simule un clic du bouton de la souris, comme si l'utilisateur avait cliqué sur le bouton.

C'est une procédure et non un boolean !
Pour faire ce que tu veux, il faut coder ton affichage dans les évènements OnClick de tes 2 boutons.
Bon courage !
Eb.

[tchimou]

Bonjour encore merci!
j'avais pensé à cela , mais je ne savais pas où mettre le code;
voici j'ai fait ce que vous avez dit , dans l'evenement OnClick de mes deux boutons , j'ai écris ce que je voulais voir à l'ouverture de ma feuille lorsque je clique sur le boutons. voici un exemple

Code :

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

1
2
3
4
5
6
procedure TGestionForm.detailGerantClick(Sender: TObject);
begin
   GerantDetailForm:=TGerantDetailForm.Create(Application);
   GerantDetailForm.ShowModal;
   GerantDetailForm.EditMvt.Text:='ENTREE';
end;

je voudrais qu'à l'ouverture de ma feuille GerantDetailForm que l'EditMvt contient la valeur 'ENTREE'; mais quand j'execute celui-ci , l'EditMvt est vide;
je ne sais pas ce que je dois faire de plus ;
merci d'avance pour votre aide;

[Pedro]

Salut
C'est normal: ShowModal afiche la fiche et bloque les autres. En fait, dans le code que tu fais, tu assignes EditMvt après que la fiche ait été affichée et fermée

Il te faut faire comme ça:

Code :

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

1
2
3
4
  GerantDetailForm:=TGerantDetailForm.Create(Application);
  GerantDetailForm.EditMvt.Text:='ENTREE';
  GerantDetailForm.ShowModal;

Initialise les valeurs avant d'afficher la fiche

[tchimou]

Vraiment merci bcp!
ça marche comme sur des roulettes, je vous en suis très reconnaissant, ça va m'aider à resourdre d'autres problèmes similaires .