Listenindex überschreitet das Maximum

[leddl]

Aber der Button mit dem Tag 102 hat ja nicht auch den Index 102. Aber genau den versuchst du später mit
JvOutlookBar1.ActivePage.Buttons[102].Caption:='Test2'; aufzurufen. Der existiert aber nicht, da du ja schließlich nur 6 Buttons hast. Entweder, du merkst dir anstatt des Tags den Index, oder du schreibst dir eine Funktion, die dir den Index eines Buttons anhand seines Tags zurückgibt.

//Edit:
ZB:

Delphi-Quellcode:

function GetBtnIndexByTag(aPage, aTag : Integer) : Integer;
begin
  Result := high(jvoutlookbar1.Pages[aPage].Buttons);
  while (Result >= low(jvoutlookbar1.Pages[aPage].Buttons)) and
        (jvoutlookbar1.Pages[aPage].Buttons[Result].Tag <> aTag) do
    dec(Result);
end;