Текущий архив: 2008.11.30;
Скачать: CL | DM;

Вниз

пункт меню в DELPHI7 IDE   Найти похожие ветки 

← →
JustI   (2008-10-23 11:15) [0]

Пытаюсь создать свой пункт меню в DELPHI7 IDE. Код беру из DRKB. При выполнении вылетает AccessViolation. В чем может быть дело.


procedure Tform_Test.FormCreate(Sender: TObject);
var
 Item: TMenuItem;
begin
 with (BorlandIDEServices as INTAServices).GetMainMenu do
 begin
   Item := TMenuItem.Create(Nil);
   Item.Caption := "Test MenuItem";
   Items.Add(Item);
 end;
end;


---

← →
Palladin ©   (2008-10-23 11:18) [1]

а проверить значение (BorlandIDEServices as INTAServices).GetMainMenu ?

---

← →
Anatoly Podgoretsky ©   (2008-10-23 19:25) [2]

> JustI  (23.10.2008 11:15:00)  [0]

А какого типа Items, где оно описано и инициализировано?

---

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

Текущий архив: 2008.11.30;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.013 c