Скачать: CL | DM;

Проблема с Menu.InsertItem   Найти похожие ветки 

← →
L`Autour ©   (2008-10-07 12:46) [0]

При попытке добавить элемент перед текущим созданным через InsertItem прога спокойно вылетает с еррором. Элементы меню нормально вставляются только перед элементом добавленным через IDE (MCK), т.е. приходится вставлять новые элементы постоянно сдвигая указатель на место новой вставки:

       while (Length(TempStr) <> 0) do
       begin
         Inc(MenuIdx);
         pTempStr := PKOLChar(Parse(TempStr, ","));
         MainMenu1.InsertItem(MenuIdx, pTempStr, nil, [moRadioMark]);
       end; //while

Дополнительно при этом возникает проблемы при выходе из программы, выражаемая как: "Инструкция по адресу 0x00000000 обратилась к памяти по адресу  0x00000000. Память не может быть read".

---

← →
blackman2003   (2008-10-07 18:10) [1]

Нумерация меню - вообще дело темное. И id-ы вовсе не обязательно идут по порядку.
Используй в качестве индекса предыдущего меню значиние, возвращаемое InsertItem

---

← →
L`Autour ©   (2008-10-08 05:52) [2]

С этим я уже смирился, а вот что делать с еррором при выходе?

---

← →
L`Autour ©   (2008-10-08 07:23) [3]

Проблему решил.

procedure TForm1.KOLForm1Close(Sender: PObj; var Accept: Boolean);
begin
 MainMenu1.Destroy;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c