Delphi - Delphi, ООП

Delphi - Delphi, ООП

Roman Go

Старожил

Сообщения: 225
Благодарности: 0

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

мне нужна процедура, входными данными которой являются масив значений и объект

Код:

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

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

Вот все что я наделал

Код:

//построение временных диаграмм по заданной выборке
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;

Добавлено: