Discussion :

[nnniii]

Bonjour, j'ai un problème quand je clique sur les boutons automatiques Fermer (tbitbtn) d'un programme avec plusieurs fenetres: celui de la premiere fenetre fonctionne, mais ceux des suivantes non. Comment les faire fonctionner?? merci

[nnniii]

Ok, ben excusez moi si j'ai pas été clair.
Voila j'ai un petit programme avec trois fenetre qui apparraissent successivement.
Si on clic sur un cetrain boutton de la premiere, elle disparait et la deuxième apparait. De meme pour passer de la deuxième à la troisième.
Pour cela j'utilise hide et show.

Sur chaqu'une de ces fenetres, j'ai placé un autre bouton( cette fois c'est un TBitBtn) et dans kind j'ai mis bkclose.
Ce bouton marche très bien sur la première fenetre mais sur les suivants, il fait disparraitre les fenetres mais pour fermer completement l'executable, je dois aller dans le gestionnair des taches et terminer le procéssus.

[Clandestino]

Il faut fermer la form principale...

Voici la portion de code necessaire dans un projet à deux fenêtres :

Code :

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

1
2
3
4
5
6
7
8
9
implementation
uses unit1;  // faire reference à l'unit de la form principale
 
{ TForm2 }
 
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  form1.Close;  // Fermer la form principale, donc l'application
end;