Derniers fichiers ouverts

Télécharger le projet
Commenter

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 / Exemple : 


// 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é.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Nono40)