[sorockinalex]

Ребят, меню создаётся, только никак не могу OnClick задать... Ошибка при попытке ккомпиляции...
Вот мои процедуры:

Код:

type
  TFMain = class(TForm)
    MainMenu: TMainMenu;
    ...
    procedure MenuItemClick(Sender:TObject);
  private
    ...
    procedure CreateMenu();
  end;


procedure TFMain.CreateMenu();
var
  MenuPosition:string;
  MenuItemNames:TStringList;
  MenuItemsCount,i:cardinal;
  MenuItems:array of TMenuItem;
begin
  MenuPosition:=LoadPlugin('OilGasSprt', FMain.Handle, 'MenuPosition');
  //создаём массив MenuItemNames
  MenuItemNames:=TStringList.Create();
  StrBreakApart(MenuPosition, '<BR>', MenuItemNames);
  MenuItemsCount:=MenuItemNames.Count;
  SetLength(MenuItems,MenuItemsCount);
  //Заполняем массив элементов меню данными из массива MenuItemNames
  MenuItems[0]:=TMenuItem.Create(FMain);
  MenuItems[0].Caption:=MenuItemNames[0];
  FMain.MainMenu.Items.Add(MenuItems[0]);
  for i:=1 to MenuItemsCount-1 do
  begin
    MenuItems[i]:=TMenuItem.Create(FMain);
    MenuItems[i].Caption:=MenuItemNames[i];
    MenuItems[i-1].Add(MenuItems[i]);
  end;

  MenuItems[i].OnClick:=FMain.MenuItemClick(FMain);
  MenuItemNames.Free();
end;

procedure TFMain.MenuItemClick(Sender:TObject);
begin
  ShowMessage('MenuItemClick');
end;

[sorockinalex]

Ошибка на строчке:

Код:

MenuItems[i].OnClick:=FMain.MenuItemClick(FMain);

Incompatible types TNotifyEvent and Procedure
По-всякому пробовал...

Хотел бы MenuItemClick тоже в приват загнать, но тогда тоже проблемы какие-то... В этом случае её не видно в списке при ручном дообавлении OnClick через ObjectInspector

[sariman]

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

Ошибка на строчке:

Код:

MenuItems[i].OnClick:=FMain.MenuItemClick(FMain);

Почему у вас это вне цикла?

[RusMaXXX]

глянь мой старый пример: http://www.delphisources.ru/pages/so...ast-start.html там как раз используется то, что те нужно!!

[YVitaliy]

Может лучше так:

Код:

MenuItems[i].OnClick:=FMain.MenuItemClick;//без_скобок_и_параметров_в_скобках

ну и обязательно в тело цикла все это засунуть.

[sorockinalex]

Код:

MenuItems[i].OnClick:=FMain.MenuItemClick;

так тоже ошибку выдаёт, но только уже при выполнении операции...
Access violation at address ... Write of address...

А в тело цикла как раз не надо, так как последний открытый пункт и является активным..

[sorockinalex]

опа, блин... понял... я думал после цикла последнее значение в переменной i остаётся... Почему оно не остаётся в переменной i???

[poli-smen]

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

А в тело цикла как раз не надо, так как последний открытый пункт и является активным..

После выполнения цикла for значение переменной-счётчика (здесь это "i") неопределено. Поэтому раз эту строчку не надо в цикл, то и нельзя в ней использовать непроинициализированную переменную "i". Используй вместо "i" например "MenuItemsCount-1".