Как описать событие без экземпляра класса ?

[MIKE11IPME]

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

Опять 25! В угадайки играем?
Совершенно не понятно, что Вы имеете в виду. Если программно назначить обработчик события, то это делается довольно легко.
А если нужно, где-то и как-то согласовать TChart с OnResize формы, то здесь уже гораздо сложнее.
В общем, такое впечатление, что Вы что-то не договариваете.

ДА скорее всего это то что надо по ссылке сяпки хотя надо сейчас опробовать

[MIKE11IPME]

В общем как-то понять не могу ("Внимание финальный вопрос"):

procedure TForm3.FormShow(Sender: TObject);
  var NewChart:TChart;     //TChart;
      NewChartSeries:TChartSeries;
      i,w,h:Byte;
      Wgraph,DWgraph:Integer;

begin
  if e<>0 then
    begin


        if e>1 then
          begin
            Wgraph:=Round((Form3.ClientWidth-GetSystemMetrics(SM_CXVSCROLL))/3);
            DWgraph:=((Form3.ClientWidth-GetSystemMetrics(SM_CXVSCROLL))-3*(Wgraph));
            w:=0;
            h:=0;
              for i:=1 to e do
                begin
                  NewChart:=TChart.Create(Form3);
                  NewChart.Parent:=Form3;
                  NewChartSeries:=TChartSeries.Create(NewChart);
                  NewChartSeries.ParentChart:=NewChart;
                  NewChart.Name:='Chart'+inttostr(i);
                  NewChart.Tag:=i;
                  NewChart.View3D:=False;

                  NewChart.Left:=w*Wgraph;
                  NewChart.Top:=h*Hgraph;
                  NewChart.Height:=Hgraph;

                    if (i mod 3) =0 then
                      NewChart.Width:=Wgraph+DWgraph
                    else NewChart.Width:=Wgraph;

                  Inc(w);

                    if  (i mod 3) = 0 then
                      begin
                        w:=0;
                        Inc(h);
                      end;
                      
                  NewChart.AddSeries(NewChartSeries);

                 { Вот тут программно задать код для выполнения во время события
                    Например: при двойном нажатии на объект открывать Form4.show }

                end;
          end;
          
    end;
end;

Кусок кода с которым вот пытаюсь сделать уже выше описанное грубо и не этично говоря аля NewChart.OnDblClick:=Form4.show;

[phomm]

Можно сделать так (перепиленое из пред.поста):

NewChart.OnDblClick := MySuperPuperDblClickHandler;
...
//// единый блок
type TForm3 = Form
...
public
  procedure MySuperPuperDblClickHandler(Sender: TObject);
...
////
procedure TForm3.MySuperPuperDblClickHandler(Sender: TObject);
begin
  Form4.show  
end;

Как показали мои исследования, простого способа зацепить анонимный метод (дельфи2009+) в виде обработчика события - нет (есть всякая магия, но это уже совсем иной разговор).