Discussion :

[ero-sennin]

Bonsoir,

Alors voilà mon soucis (qui je pense dois être simple à résoudre) :
Dans l'événement FormCloseQuery j'ai un traitement et je voudrai rappeler cet événement dans une autre procédure :

Voici le code concernant le FormCloseQuery :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure Tnom.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  lareponse:=MessageDlg('Voulez-vous enregistrer les modifications ?', mtConfirmation, mbYesNoCancel, 0);
  if lareponse=mrcancel then
  CanClose:=false
  else
  begin
    if lareponse = mryes then
    Sauve1Click(sender)
    CanClose:=true;
  end;
end;

Voici le code de Quitter:

Code :

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

1
2
3
4
procedure Tnom.Button1Click(Sender: TObject);
begin
FormCloseQuery(...);// Je ne vois pas trop les paramètres à mettre ... :(
end;

Merci d'avance
Cordialement Ero-Sennin

[slimjoe]

Salut!

Quel est le traitement que tu voudrais appeler au juste ? Toute la procédure ?

Si c'est le cas, tu n'as qu'à fermer la fenêtre non ?

Code :

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

1
2
 
self.Close();

[ero-sennin]

Oua!

J'en reviens pas d'avoir été un si gros

Oué, je voulais rappeller toute la procédure. Je n'y ai pas pensé mais c'était tout con! Comme quoi, on cherche vraiment pour rien des fois!

Merci slimjoe

[slimjoe]

hehe

Au plaisir