Débutant total : Besoin d'aide !

Question

Bonjour à tous , 

Bon voilà , je débute en programmation .J'utilise Delphi 3 .
Je cherche à faire une commande toute bête qui consiste à simplement fermer le  programme.Pour cela j'ai crée un menu avec "fichier" , et dedans "fermer" .
J'ai beau associer la fonction Exit; à cette commande , ça ne ferme pas le programme .C'est la même chose lorsque je crée un bouton.
Voici un extrait des lignes de commande tapées :

procedure TForm1.fermer1Click(Sender: TObject);
begin
  Exit;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Exit;
end;

Si une âme généreuse pouvat éclairer ma lanterne !

Merci d'avance de votre aide , j'en ai besoin !  ;) 

A+

Emandhal · Answer

procedure TForm1.fermer1Click(Sender: TObject);
begin
  Close;
end;

ou

procedure TForm1.fermer1Click(Sender: TObject);
begin
  Application.Terminate;
end;

Tout problème a sa solution... Mais en général, c'est jamais la bonne...

Triplepattes · Answer

Oh OUI !!
Merci beaucoup , c'est ça ! Avec la commande "Close" , ça marche super ! :) 
Aprés avoir tant galéré , la solution était si simple ! :-p 

Encore merci ! ;) 

A+

cs_Amadeus · Answer

La commande exit permet de sortir d'une procedure ou fonction sans allé au bout du code.

Débutant total : Besoin d'aide !

3 réponses

Votre réponse

Discussions similaires