Delphi

Вопрос

Как сделать в меню список последних открытых файлов?

Ответ

Пусть список файлов хранится в 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;

Из конференции Delphi