POUR MA PREMIERE APPLICATION J'AI FAIT UN BOUTTON POUR ENREGISTRER.
cs_zmc
Messages postés
147
Date d'inscription
vendredi 26 avril 2002
Statut
Membre
Dernière intervention
26 avril 2008
-
30 avril 2003 à 21:57
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 1 mai 2003 à 09:38
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 1 mai 2003 à 09:38
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12511-pour-ma-premiere-application-j-ai-fait-un-boutton-pour-enregistrer
https://codes-sources.commentcamarche.net/source/12511-pour-ma-premiere-application-j-ai-fait-un-boutton-pour-enregistrer
1 mai 2003 à 09:38
30 avril 2003 à 21:57
ensuite tu pourrais ajouter dans ton action "enregistrer sous"
StatusBar1.Penels.Items[0].Text:=ExtractFileName(FileName); ou FileName serait une variable string initialisée a DlEnregistrer.FileName.
Ensuite rien de plus simple pour ta fonction enregistrer, tu test si le text de ton panel est egal a "Sans Titre.txt" ou pas (en imaginant que ton "enregistrer sous" sois une action :
if (StatusText = 'Sans titre.txt') then
Tonaction.Execute
else
Textedition.Lines.SaveToFile(FileName);
ou StatusText serais une variable string initialisé sur le Text de StatusBar (StatusBar1.Panels.Item[0].Text)
Bon coding ;)