Как сделать в меню список последних открытых файлов
Как сделать в меню список последних открытых файлов
Как сделать в меню список последних открытых файлов Пусть список файлов хранится в FileList : TStringList, a mmReopen : TMenuItem - пункт меню, содержащий ссылки на файлы, тогда при изменениии списка файлов надо сделать: {var NewItem: TMenuItem} for I := mmReopen.Count -1 downto 0 do begin mmReopen.Delete(I); end; for I := 0 to lf.Count-1 do begin NewItem := TMenuItem.Create(mmReopen); NewItem.Caption := '&'+IntToStr(I) + ' ' + FileList.Strings[I]; NewItem.OnClick := FileOpenProc; mmReopen.Add(NewItem); end; ... procedure FormX.FileOpenProc(Sender : TObject); var Filename : String; begin Filename := FileList.Strings[mmReopen.IndexOf(TMenuItem(Sender))]; ... end;
