Faire un "fichiers récents" du menu

Faire un "fichiers recents" du menu

Faire un "fichiers recents" du menu : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire un simple 'fichiers recents' du menu/list dans votre application.

il y a Un moment j'ai dû ajouter un 'fichiers Recents du Menu' dans un projet que je suis en train de travailler sur. J'ai donc ecrit un simple composant qui doit etre (A) flexible. (B) reutilisable dans d'autres projets. THistory est ne :)



Vous pouvez telecharger THistory ici. Faire ce que vous voulez avec elle, mais je apprechiate si vous pouviez laissez-moi savoir si vous l'utilisez dans votre programme :)



L'objectif de cet article est de faire un simple 'reouverture' du menu (voir image ci-dessous). La premiere partie du code, alors je vais essayer d'expliquer ce qu'il fait.







// mise a Jour de la 'Reouverture' de la liste..

procedure TfrmMain.History1Change(Sender: TObject)

var j'ai: entier

demarrer

& nbsp & nbsp avec Reopen1 do

& nbsp & nbsp commencer

& ! & ! & ! & nbsp Clair

& ! & ! & ! & nbsp pour i:= 0 de l'Histoire1.Count-1 ne

& ! & ! & ! & nbsp demarrer

& ! & ! & ! & ! & ! & nbsp Ajouter(TMenuItem.Create(self))

& ! & ! & ! & ! & ! & nbsp avec Items[Count-1] do

& ! & ! & ! & ! & ! & nbsp commencer

& ! & ! & ! & ! & ! & ! & ! & nbsp Legende := ' & 'IntToStr(i) '' l'Histoire1.Les elements[i]

& ! & ! & ! & ! & ! & ! & ! & nbsp Tag := i

& ! & ! & ! & ! & ! & ! & ! & nbsp OnClick := GenericReopenClick

& ! & ! & ! & ! & ! & nbsp fin

& ! & ! & ! & nbsp fin

& ! & ! & ! & nbsp Active := Count > 0

& ! & ! & ! & nbsp // Ajouter un saut de ligne

& ! & ! & ! & nbsp Ajouter(TMenuItem.Create(self))

& ! & ! & ! & nbsp Articles[Count-1].Caption := '-'

& ! & ! & ! & nbsp // Ajouter 'Effacer l'Historique'

& ! & ! & ! & nbsp Ajouter( TMenuItem.Create(self) )

& ! & ! & ! & nbsp avec Items[Count-1] do

& ! & ! & ! & nbsp commencer

& ! & ! & ! & ! & ! & nbsp Caption := 'Effacer l'Historique'

& ! & ! & ! & ! & ! & nbsp Tag := -1

& ! & ! & ! & ! & ! & nbsp OnClick := GenericReopenClick

& ! & ! & ! & nbsp fin

& nbsp & nbsp fin

fin



// Reouverture de l'element clique...

procedure TfrmMain.GenericReopenClick(Sender: TObject)

begin

& nbsp & nbsp si TMenuitem(Expediteur).Tag >= 0

& ! & ! & ! & nbsp OpenFile(l'Histoire1.Les Articles[TMenuitem(Expediteur).Tag])

& nbsp & nbsp else

& ! & ! & ! & nbsp Histoire1.Clair

fin



//...



procedure TfrmMain.OpenFile(FileName: string)

demarrer

& nbsp & nbsp // Votre code ici...

& nbsp & nbsp Histoire1.AddItem(nom de fichier)

fin





Notez que ce n'est pas le code pour le composant, vous devez le telecharger et l'installer pour que cela fonctionne. History1Change est l'evenement OnChange pour mon THistory de l'objet, de l'Histoire1. Chaque fois qu'un element est ajoute a l'Histoire de la composante de cette procedure est appelee, de sorte que nous savons de la liste ont ete modifies. Nous avons donc simplement recreer le sous-menu de 'Reopen1' avec les elements en cours d'un 'Effacer l'historique' de l'element.



GenericReopenClick, la procedure que nous utilisons sur tous les menuitems OnClick est l'endroit ou vous pouvez mettre votre code pour gerer le cas ou quelqu'un a clique sur un element du menu. Je pensais que c'etait plus simple pour economiser de l'index de chaque element d'historique dans les MenuItems ' Tag propriete comme vous pouvez le voir ci-dessus. L'indice d'un element d'Historique ne peut etre -1 je l'ai donc utilise pour effacer l'historique.



THistory pouvez uniquement charger/enregistrer la liste a partir de/vers des fichiers ini. Mais l'ajout du support pour d'autres formats, tels que le registre ou un format personnalise ne devrait pas etre un probleme.



Si vous trouvez des bugs ou effectuer des ameliorations, s'il vous plaît laissez-moi savoir afin que je puisse les mettre a jour.