Débutant total : Besoin d'aide !

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+

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...


-------------------------------
Réponse au message :
-------------------------------

> 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+

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 !

Encore merci !


A+


-------------------------------
Réponse au message :
-------------------------------

> 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...

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



-------------------------------
Réponse au message :
-------------------------------

> 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 !
>
> Encore merci !
>
>
> A+
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > 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...
>