begin process at 2010 02 10 10:44:47
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Fichier / Disque

 > DERNIERS FICHIERS OUVERTS

DERNIERS FICHIERS OUVERTS


 Information sur la source

Note :
10 / 10 - par 2 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Niveau :Débutant Date de création :17/04/2002 Date de mise à jour :19/04/2002 22:13:27 Vu / téléchargé :3 414 / 278
Auteur : Nono40

Ecrire un message privé
Site perso
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 Description

C'est un exemple d'utilisation d'une liste 'Fichiers récents'.

Avant d'ouvrir le projet MRU_DEMO vous devez installer le composant RecentFiles situé dans le fichier MRUFLIST.PAS.

Utilisation du composant :
Vous devez remplir en conception les propriétés suivantes du RecentFiles :
MaxFiles = nombre maximum de fichiers récent ( maximum 9 )(obligatoire)
Menu = Nom de l'item de menu qui recevra en sous menu la liste des fichiers.(obligatoire)
RegistryKey = Nom de la clef utilisée dans la base de registre, c'est facultatif et par défaut la clef utilisée est :HKEY_CURRENT_USER\Software\MRU_DEMO\FileHistory

Vous devez appeler RecentFiles.LoadFromRegistry au début de votre appli
Vous devez appeler RecentFiles.SaveToRegistry avant de quitter votre appli

Utilisez la propriété RecentFiles.LatestFile pour définir le fichier le plus récent.
Utilisez l'événement RecentFiles.OnClick pour ouvrir un fichier sélectionné dans la liste des fichiers récents.

Si vous avez des questions ou des remarques n'hesitez pas...

Nono40  

Source

  • // Au départ de l'application il faut charger la liste des fichiers récents
  • procedure TForm1.FormShow(Sender: TObject);
  • begin
  • RecentFiles1.LoadFromRegistry;
  • end;
  • // A la fin de l'application il faut sauver la liste dans le registre
  • procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  • begin
  • RecentFiles1.SaveToRegistry;
  • end;
  • procedure TForm1.Ouvrir1Click(Sender: TObject);
  • begin
  • // On sélectionne un fichier
  • If Not OpenDialog1.Execute Then Exit;
  • // On le défini comme le plus récent des fichiers ouverts
  • RecentFiles1.LatestFile:=OpenDialog1.FileName;
  • // On traite le fichier ( ici une simple lecture )
  • Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
  • end;
  • procedure TForm1.RecentFiles1Click(Sender: TObject; LatestFile: String);
  • begin
  • // Quand on clique dans la liste des fichiers récents il faut ouvrir le fichier en question
  • Memo1.Lines.LoadFromFile(LatestFile);
  • // On remet le fichier choisi dans la position la plus récente
  • RecentFiles1.LatestFile:=LatestFile;
  • end; 
// Au départ de l'application il faut charger la liste des fichiers récents
procedure TForm1.FormShow(Sender: TObject);
begin
  RecentFiles1.LoadFromRegistry;
end;

// A la fin de l'application il faut sauver la liste dans le registre
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  RecentFiles1.SaveToRegistry;
end;

procedure TForm1.Ouvrir1Click(Sender: TObject);
begin
// On sélectionne un fichier
  If Not OpenDialog1.Execute Then Exit;
// On le défini comme le plus récent des fichiers ouverts
  RecentFiles1.LatestFile:=OpenDialog1.FileName;
// On traite le fichier ( ici une simple lecture )
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.RecentFiles1Click(Sender: TObject; LatestFile: String);
begin
// Quand on clique dans la liste des fichiers récents il faut ouvrir le fichier en question
  Memo1.Lines.LoadFromFile(LatestFile);
// On remet le fichier choisi dans la position la plus récente  
  RecentFiles1.LatestFile:=LatestFile;
end;

 Conclusion

Crédit à Robert R. Marsh pour son composant RecentFiles
et merci à DelphiProg pour l'adresse du site

Modif le 19/04/2002 : J'ai modifié le projet MRU_DEMO pour qu'il compile sans erreur sous Delphi5 et DelpHI6. Le composant est inchangé.  

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec une capture TAUX D'OCCUPATION DU PROCESSEUR
Source avec Zip SYNCHRONISER DEUX LISTBOX
Source avec Zip Source avec une capture SUPPRIMER LE SCINTILLEMENT AVEC DOUBLEBUFFERED
SETFOCUS SUR UN BOUTON D'UN RADIOGROUP
Source avec Zip DESSINER DANS LE SYSTRAY AVEC CREATEICON
Toutes les sources de Nono40

 Sources de la même categorie

Source avec Zip SAUVEGARDE DE PLUSIEURS DISQUES/PARTITIONS par danfranjo
Source avec Zip Source avec une capture FICLOCK : LOCKEZ LES FICHIERS par JulioDelphi
Source avec Zip Source avec une capture MODIFICATION DES EXTENSIONS DE FICHIERS par JeremyLecouvert
EXPLORATION RÉCURSIVE DE RÉPERTOIRE par JeremyLecouvert
Source avec Zip OBTENIR LE PROPRIÉTAIRE D'UN FICHIER (WIN32;NTFS) par ILP
Toutes les sources de la catégorie Fichier / Disque

Commentaires et avis

Commentaire de Biggooch le 04/08/2004 13:04:09

à la place d'un TMenuItem, on sait utiliser une category de l'ActionManager ?

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,764 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)