Создать REopen

[casio23]

Подскажите кто знает как сделать в меню подменю reopen на 4 списка,и чтобы при добавлении нового удалялся 1 и т.д.?

нашел код,но он почему то не работает выдает ошибку List out of bounds (2)

procedure TForm1.Open1Click(Sender: TObject);
Var i: Integer;
    s: String;
 
begin
  if not OpenDialog1.Execute then Exit;
  Save1.Enabled := True;
  SaveAs1.Enabled := True;
  Close1.Enabled := True;
  Reopen1.Enabled := True;
  for i := 3 downto 1
  do begin
      if Reopen1.Items[i-1].Caption = '' then Continue;
      Reopen1.Items[i].Caption := Reopen1.Items[i-1].Caption;
      s := Reopen1.Items[i].Caption;
      MessageDlg(IntToStr(i) + 's=' + s, mtInformation, [mbOK], 0);
      Delete(s,1,1);
      MessageDlg(IntToStr(i) + 's delete=' + s, mtInformation, [mbOK], 0);
      Reopen1.Items[i].Caption := IntToStr(i) + s;
      Reopen1.Items[i].Visible:= True;
  end;
 
  Reopen1.Items[0].Caption := '0 ' + OpenDialog1.FileName;
  Reopen1.Items[0].Visible:= True;
  Reopen1.Items[0].Checked:= True;
 
  if OpenDialog1.FileName<>'' then Self.Caption := 'Form1' + '  ' +
   ExtractFileName(OpenDialog1.FileName)
    else Self.Caption := 'Form1';
end;

что в этом коде не так?

[ArtGrek]

List out of bounds (2)

выход за пределы массива
видимо обрашаешся к елементу меню которого нет или уже нет

Подскажите кто знает как сделать в меню подменю reopen на 4 списка,и чтобы при добавлении нового удалялся 1 и т.д.?

не поиму что ты хочеш зделать? с MainMenu работаеш?

[Stilet]

Жестокий код...
Если нужно крутить меню то можно использовать такую схему:

var i:TMenuItem;
begin
 i:=TMenuItem.Create(N11);
 i.Caption:=IntToStr(tag);
 tag:=tag+1;
 with N11 do begin
  Insert(Count,i);
  if Count>4 then Delete(0);
 end;
end;

[casio23]

Сообщение от Stilet

Жестокий код...
Если нужно крутить меню то можно использовать такую схему:

var i:TMenuItem;
begin
 i:=TMenuItem.Create(N11);
 i.Caption:=IntToStr(tag);
 tag:=tag+1;
 with N11 do begin
  Insert(Count,i);
  if Count>4 then Delete(0);
 end;
end;

Спасибо все работает

Сообщение от casio23

Спасибо все работает

а можно еще узнать а как сделать Cheked для активного открытия файла?

[casio23]

Сообщение от casio23

Спасибо все работает



а можно еще узнать а как сделать Cheked для активного открытия файла?

а как не записывать один и тот же путь файла? чтобы он был 1,не повторялся? можно было открыть,этот файл, можно пример

[Stilet]

Cheked для активного открытия файла?

Тоесть? Пометить в меню некий элемент?
В цикле пройдись по элементам подменю, и если его... Свойство некое совпадает с тем что нужно просто выставь Cheked для него.

[casio23]

Сообщение от Stilet

Тоесть? Пометить в меню некий элемент?
В цикле пройдись по элементам подменю, и если его... Свойство некое совпадает с тем что нужно просто выставь Cheked для него.

а как сделать OnClick по созданому Caption?

Сообщение от Stilet

Тоесть? Пометить в меню некий элемент?
В цикле пройдись по элементам подменю, и если его... Свойство некое совпадает с тем что нужно просто выставь Cheked для него.

да нужно пометить элемент, в меню reopen, и как вызвать Onclick в меню reopen

[Stilet]

а как сделать OnClick по созданому Caption?

Чего??? По элементу меню может быть?

i.OnClick:=ButtonClick;

Где ButtonClick некая процедура обработчик клика типа procedure (Sender: TObject) ofobject;

и как вызвать Onclick в меню reopen

ну просто : i.Click();...

[casio23]

Сообщение от Stilet

Чего??? По элементу меню может быть?

i.OnClick:=ButtonClick;

Где ButtonClick некая процедура обработчик клика типа procedure (Sender: TObject) ofobject;

ну просто : i.Click();...

OnClick по созданному элементу в reopen, помогите мне с Cheked

[Stilet]

помогите мне с Cheked

Чем? Ты в цикле по элементам меню пройтись не можешь?