Как выполнить следующее?
Команда Open открывает диалоговое окно открытия файла и, в случае выбора файла, добавляет его в подменю Reopen в качестве нулевого пункта и помечает этот пункт. При добавлении нового имени весь список имён смещается вниз.
В обработчике события OnClick пункта меню Open должно быть реализовано следующее:
Открывается диалоговое окно открытия файла. Если пользователь выбрал файл для открытия, то выполняется следующее:
Для пункта Reopen (максимальный размер которого ограничен 4 пунктами) необходимо:
- Установить доступность.
- Выполнить смещение в имеющемся списке имен файлов на одну позицию вниз с сохранением свойства Visible от предыдущего элемента. При смещении списка изменяется нумерация в названии пунктов меню. Для изменения этой нумерации используйте процедуру Delete из модуля System.
- В качестве нулевой строки вложенного меню установить подчеркнутую цифру 0, а за ней полное имя файла, полученное из диалогового окна. Свойство Visible этой строки установить равным True.
- Убрать старую пометку в списке имен файлов и установить пометку в нулевой строке.
Сделал вот так. Дальше не идёт...
Код:
procedure TForm1.Open1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Save1.Enabled := True;
SaveAs1.Enabled := True;
Close1.Enabled := True;
Reopen1.Enabled := True;
Reopen1.Items[0].Visible:= True;
Reopen1.Items[0].Caption:= OpenDialog1.FileName;
Reopen1.Items[0].Checked:= True;
end;