Сделав "последние файлы" в меню

как сделать простой "последние файлы" меню/списка в приложении.

некоторое время назад мне пришлось Добавить в меню "недавние файлы" в проекте над которым я работаю. Поэтому я написал простой компонент, который должен быть: (а) гибкий. (Б) повторно использовать в других проектах. THistory родился :)



Вы можете скачать THistory здесь. Делай, что хочешь с ним, но я бы apprechiate если бы вы могли, дайте мне знать, если вы использовать его в вашей программе :)



цель этой статьи-дать простой "открыть меню" (см. рисунок ниже). Первый код, потом я постараюсь объяснить, что он делает.







<и>// обновление "открыть" список..

<б>процедура в TfrmMain.History1Change(Отправитель: TObject)

<б>вар мне: целое число

<б>начать

& евро & евро и с Reopen1 <б>сделать

& фитоэстрогены & мочекаменная начать

& евро & евро & евро & евро понятно,

& евро & евро & евро & евро для я:= 0 и для History1.Счет-1 <Б>делать

& евро & евро & евро & евро <б>начать

& евро & евро & евро & евро & евро & мочекаменная Добавить(TMenuItem.Создать(я))

& евро & евро & евро & евро & евро & евро и с: все предметы[счетчик-1] <Б>сделать

& евро & евро & евро & евро & евро & евро начать

& евро & евро & евро & евро & евро & евро & евро & евро надпись :IntToStr = ' & '(я) '' History1.Элементы[я]

& евро & евро & евро & евро & евро & евро & евро & евро тегов := я

& евро & евро & евро & евро & евро & евро & евро & евро onclick функции := GenericReopenClick

& евро & евро & евро & евро & евро & евро и конец

& евро & евро & евро & евро конец

& евро & евро & евро & евро включено := Количество > 0

& евро & евро & евро & евро <я>// Добавить разрыв строки

& евро & евро & евро & мочекаменная Добавить(TMenuItem.Создать(я))

& покупка & покупка & покупка & покупка товаров[счетчик-1].Заголовок := '-'

& евро & евро & евро & евро <я>// Добавить 'очистить историю'

& евро & евро & евро & евро Добавить( TMenuItem.Создание(самостоятельно) )
<див класс='embed_block_0'> <див ИД="блок-google_admanager-1" класса="блок блок-google_admanager области-другие области-количество-1 Количество-1 блок-Без названия "> <див класс="блок-топ"> <див класс="блок-внутренний"> <див класс="содержание"> <див класс="блок-дна"> <див класс='embed_block_1'><див>
& евро & евро & евро & евро и с: все предметы[счетчик-1] <б>сделать

& евро & евро & евро & евро начать

& евро & евро & евро & евро & евро & мочекаменная Заголовок := 'очистить историю'

& евро & евро & евро & евро & евро & евро тегов := -1

& евро & евро & евро & евро & евро & евро onclick функции := GenericReopenClick

& евро & евро & евро & евро и конец

& фитоэстрогены & мочекаменная конце

конец



<и>// Переоткрыть нажал...

<б>процедура на TfrmMain.GenericReopenClick(Отправитель: TObject)

<б>начинается

и & евро & евро, если TMenuitem(отправителя).Тег >= 0 и тогда

& евро & евро & евро & мочекаменная функция openfile(History1.Элементы[TMenuitem(Отправителя).Тег])

& евро & евро и еще

& евро & евро & евро & евро History1.Понятно,

<б>конец



<и>//...



<б>процедура, и TfrmMain.Функция openfile(имя: строка)

<б>начать

& евро & евро <я>// ваш код здесь...

& покупка & покупка History1.Метод additem(именем)

<б>конец





обратите внимание, что это не код для компонента, вам придется скачать и установить его для этой работы. History1Change это событие onchange для моего объекта THistory, History1. Каждый раз, когда элемент добавляется к компоненту истории эта процедура вызывается, поэтому мы знаем, что список был изменен. Поэтому мы просто воссоздать подменю "Reopen1" с нынешним пункты "очистить историю" товар.



GenericReopenClick, порядок мы устанавливаем на все меню кнопке, где вы бы поставить свой код для обработки события, где кто-то нажал на пункт в нашем меню. Я думал, что это был легкий для сохранения индекса каждого предмета истории в свойство Tag в соответствующих меню' как вы можете видеть выше. Индекс элемента не может быть -1, так что я использовал его, чтобы очистить историю.



THistory можете только загрузить/сохранить таблицу из/в ini-файлах. Но добавление поддержки других форматов, таких как реестр или пользовательского формата не должно быть проблемой.



если вы обнаружите какие-либо ошибки или внести какие-либо улучшения, пожалуйста, дайте мне знать, поэтому я могу обновить его.
и<дел стиль= \ ясно:оба поплавка:нет'><дел стиль= \ ясно:оба поплавка:нет'> & мочекаменная