cs_Nono40
Messages postés962Date d'inscriptionmercredi 3 avril 2002StatutMembreDernière intervention12 septembre 20062 21 nov. 2002 à 23:01
Dans le OnCloseQuery de la fiche ajoute le code suivant :
Var DoitFermer:Boolean=False;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=DoitFermer;
end;
Dans le OnShow Ajoute :
procedure TForm1.FormShow(Sender: TObject);
begin
DoitFermer:=False;
end;
Et sur un bouton de fermeture :
procedure TForm1.Button1Click(Sender: TObject);
begin
DoitFermer:=True;
Close;
end;