Bonjour,

j'ai une application qui affiche un popup. Je veux pouvoir activer la fermeture du pop up lorsque l'on clique sur un bouton de ce popup.

Création du popup a partir de la Form1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
var form2:tform2;
begin
  form2:=tform2.create(self);
  form2.Show;
end;

Dans la Form2 (le popup), je code un onClick:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure TForm2.Button1Click(Sender: TObject);
begin
  form2.close;
end;
Mais il plante : violation d'acces.
Alors que si je ferme le popup par la croix de la fenetre, il se ferme correctement.
J'avoue que j'ai honte de demander qq chose d'aussi simple, mais je suis tres pressé!!

Merci donc aux âmes charitables