La realización de un "archivos recientes" en el menú

La realizacion de un "archivos recientes" en el menu

La realizacion de un "archivos recientes" en el menu : Multi-millones de consejos para hacer su vida mas facil.

Como hacer un simple 'archivos recientes' menu/lista en su aplicacion.

hace Un tiempo he tenido que añadir un 'Menu archivos Recientes' en un proyecto en el que estoy trabajando. Asi que escribi un simple componente que debe ser (A) flexible. (B) reutilizables en otros proyectos. THistory nacio :)



Se puede descargar THistory aqui. Hacer lo que quiera con el, pero me gustaria apprechiate si usted podria hagamelo saber si usted lo usa en su programa :)



El objetivo de este articulo es hacer un simple 'abrir' del menu ' (ver imagen de abajo). Primero un poco de codigo, a continuacion, voy a tratar de explicar lo que hace.







// Actualizacion de la 'Reapertura' de la lista..

procedimiento TfrmMain.History1Change(Sender: TObject)

var i: integer

begin

& nbsp & nbsp por Reopen1

& nbsp & nbsp comenzar

& nbsp & nbsp & nbsp & nbsp Claro

& nbsp & nbsp & nbsp & nbsp para i:= 0 para History1.Count-1 hacer

& nbsp & nbsp & nbsp & nbsp begin

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Agregar(TMenuItem.Create(self))

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp por Articulos[Count-1]

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp comenzar

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Titulo := ' & 'IntToStr(i) '' History1.Los elementos[i]

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Etiqueta := i

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

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp fin

& nbsp & nbsp & nbsp & nbsp final

& nbsp & nbsp & nbsp & nbsp Habilitado := Count > 0

& nbsp & nbsp & nbsp & nbsp // Agregar salto de linea

& nbsp & nbsp & nbsp & nbsp Agregar(TMenuItem.Create(self))

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

& nbsp & nbsp & nbsp & nbsp // Add 'Borrar Historial'

& nbsp & nbsp & nbsp & nbsp Agregar( TMenuItem.Create(self) )

& nbsp & nbsp & nbsp & nbsp por Articulos[Count-1]

& nbsp & nbsp & nbsp & nbsp comenzar

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Caption := 'Borrar Historial'

& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Etiqueta := -1

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

& nbsp & nbsp & nbsp & nbsp fin

& nbsp & nbsp final

fin



// Abrir elemento clic...

procedimiento TfrmMain.GenericReopenClick(Sender: TObject)

begin

& nbsp & nbsp si TMenuitem(Remitente).Tag >= 0 entonces

& nbsp & nbsp & nbsp & nbsp OpenFile(History1.Los Elementos[TMenuitem(Remitente).Tag])

& nbsp & nbsp persona

& nbsp & nbsp & nbsp & nbsp History1.Claro

fin



//...



procedimiento TfrmMain.OpenFile(FileName: string)

begin

& nbsp & nbsp // aqui el codigo...

& nbsp & nbsp History1.AddItem(nombre de archivo)

fin





tenga en cuenta que este no es el codigo para el componente, usted tiene que descargar e instalar para que esto funcione. History1Change es el evento OnChange para mi THistory objeto, History1. Cada vez que se agrega un elemento a la Historia de componente este procedimiento se llama asi sabemos que la lista se han cambiado. Asi que simplemente recrear el sub-menu de 'Reopen1' con el estado actual de los elementos de una 'Borrar historial'.



GenericReopenClick, el procedimiento se establece en todos los menuitems OnClick es donde va a poner el codigo para manejar el evento en el que alguien hace clic en un elemento de nuestro menu. Pense que era mas facil para guardar el indice de cada elemento del historial en la correspondiente MenuItems ' Etiqueta de propiedad, como se puede ver arriba. El indice de un elemento del Historial nunca puede ser -1, de modo que he usado para borrar el historial.



THistory solo puede cargar/guardar la lista de/a los archivos ini. Pero la adicion de soporte para otros formatos, tales como el registro o un formato personalizado no deberia ser un problema.



Si usted encuentra cualquier error o realizar algun tipo de mejora, por favor hagamelo saber para que yo pueda actualizar.