Вопрос в догонку.
Как сделать так, что бы при щелчке на созданный пункт меню, его заголовок заносился в Edit ?
Код:
Add(NewItem(s,0,False,True,MenuItemClick,0,'MenuItem'+ inttostr(i)));
- это созданный пункт меню.
MenuItemClick - это соотвественно процедура обработки нажатия.
Она будет одна на все пункты меню
Код:
procedure TForm1.MenuItemClick(Sender: TObject);
begin
Edit1.Text:= _______
end;
И что нужно писать в _______? Как идентифицировать нажатый пункт меню? Есть идеи?