Добавление нескольких TMenuItem в PopupMenu

[f00rd]

Собственно, что требуется:

Меню, назовем его Menu (класса TPopupMenu) должно в программе менятся, т.е. должно уменьшаться/увеличиваться количество Item'ов в этом меню... Пробовал сделать через цикл:

var
 it: TMenuItem;
 a: array of TMenuItem;
 i: integer;
begin
 SetLength(a, 0);
 for i:=0 to SomeNum do
  begin
   it:=TMenuItem.Create(nil);
   it.Caption:=SomeString;
   SetLength(a, Length(a)+1);
   a[Length(a)-1]:=it;
   it.Free;
  end;
Menu.Items.Add(a);

Но вываливаются ошибки, типа it добавлено два раза...

Как быть?

[RaZEr]

Видимо ты не обнулил it. Попробуй обнулять: it := nil; или добавлять: a[Length(a)-1] := TMenuItem.Create(nil);

[f00rd]

RaZEr
a[Length(a)-1] := TMenuItem.Create(nil) - работает! Огромное спасибо!

--
И еще, как на a[Length(a)-1].OnClick посадить мою функцию?

[RaZEr]

Как всегда. Создаешь процедуру и присваиваешь событию.

[f00rd]

 procedure ItemClick(i:integer);
 begin
  ...
 end;

a[Length(a)-1].OnClick:=ItemClick;

Выдает ошибку о несовместимости типов...

[RaZEr]

Процитируй ошибку.

[f00rd]

Сообщение:

Incompatible types: 'method pointer and regular procedure'

Если же сделать так:

procedure TForm1.First1Click(Sender: TObject);
begin
 ///
end;

a[Length(a)-1].OnClick:=First1Click;

Где First1Click - событие какой-нибудь кнопки, то я не знаю, как обращаться с Sender'ом...

[RaZEr]

Посмотри как оформляются обработчики событий. В частности OnClick.

Добавлено через 2 минуты:

то я не знаю, как обращаться с Sender'ом

Это ссылка на объект для которого произошло событие. Используй оператор as.

Добавлено через 1 минуту:
PS: Вернее это не ссылка, а сам объект.

[f00rd]

RaZEr

Используй оператор as.

а поподробнее можно?

[RaZEr]

Ну братец. Синтаксис языка не знать. Открываем книжку и читаем. Пример:

with Sender as TMenuItem do
begin
...
end;

[f00rd]

Ну братец. Синтаксис языка не знать.

Знать-то знаю, только вот запаметовал.... а книжек поблизости нету.....

Сенкс....