Delphi, ООП

[Roman Go]

Ну никакой из меня программист ну что мне теперь поделать
Значит так пишу программу и для удобства сделал в ней модуль и все процедуры делаю в этом модуле, а затем вызываю в основной программе... Но тут у меня с одной из процедур возникла проблема
[hr]
мне нужна процедура, входными данными которой являются масив значений и объект

procedure timediagram(it:tform; viborka:tpmas_real);

суть какая, я на данной форме создаю еще одну форму, на которую помещаю chart, в chart делаю несколько серий, в которые записываю разные графики, используя массив viborka, так вот мне надо сделать навигацию по этим сериям, я решил сделать с помощью poupmenu в них сделал три пункта, а вот как присвоить этим пунктам действие, с помощью которого делались видимыми одни серии, а другие наоборот пряталися незнаю
[hr]
Вот все что я наделал

//построение временных диаграмм по заданной выборке
procedure timediagram(it:tform; viborka:tpmas_real);
var page:TTabSheet;
    mychart:tchart;
    ser1, ser2, ser3:tlineseries;
    popupm:tpopupmenu;  //всплывающее меню
    popupmi:TMenuItem;
    i:integer;
begin
   if myform=nil then
   begin
     myform:=tform.create(it);
     myform.parent:=it;
     myform.visible:=true;

     mypagec:=Tpagecontrol.create(myform);
     mypagec.parent:=myform;
     mypagec.align:=alclient;
   end;
  myform.visible:=true;

  page:=TTabSheet.Create(mypagec);
  page.PageControl:=mypagec;
  page.caption:='Точка №'+inttostr(mypagec.PageCount);

  mychart:=tchart.create(page);
  mychart.parent:=page;
  ser1:=tlineseries.create(mychart);
  ser2:=tlineseries.create(mychart);
  ser3:=tlineseries.create(mychart);

  mychart.Align:=alclient;
  mychart.View3D:=false;

  mychart.AddSeries(ser1);
   for i:=0 to high(viborka) do ser.addxy(i+1, viborka[i]);

  popupm:=tpopupmenu.create(mychart);

  //создание подменю:
  popupmi:=tmenuitem.create(popupm);
  popupmi.caption:='Временная диаграмма';
  popupm.items.add(popupmi);

  popupmi:=tmenuitem.create(popupm);
  popupmi.caption:='Гистограмма';
  popupm.items.add(popupmi);

  popupmi:=tmenuitem.create(popupm);
  popupmi.caption:='Логарифмический масштаб';
//   popupmi.OnClick:=qqq;
  popupm.items.add(popupmi);
  mychart.popupmenu:=popupm;
end;



Добавлено:

:help:

[Roman Go]

Вроде чего хотел добился, если будет интересовать что-то по теме спрашивайте...

Исправлено: Roman Go, 18:23 10-11-2002