Set OnZoom in Runtime

[msd48]

Hi!

How can I set (change) Chart.OnZoom in runtime?

[Narcís]

Hi msd48,

Sorry but I don't understand which is your exact request. Are you trying to fire the OnZoom event? Would you like to zoom the chart at runtime? ...

Would you be so kind to give us some more details about what you are trying to achieve?

Thanks in advance.

[msd48]

Ok.

I`ve something like this:

Code: Select all

procedure TFormMain.ChartZoom(Sender: TObject);
begin
  zoomOff;
end;

How can I change in runtime change event handler from zoomOff to zoomOff2 ?

zoomOff and zoomOff2 - it`s a procedures.

[Narcís]

Hi msd48,

I can think of 2 options:

a. Use an if clause in the OnZoom event implementation:

procedure TForm1.Chart1Zoom(Sender: TObject);
begin
if condition then
zoomOff
else
zoomOff2
end;

b. Use 2 OnZoom event implementations:

Code: Select all

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.OnZoom:=Chart1Zoom;
  //Your code here
  Chart1.OnZoom:=Chart1Zoom2;
end;

procedure TForm1.Chart1Zoom(Sender: TObject);
begin
  zoomOff;
end;

procedure TForm1.Chart1Zoom2(Sender: TObject);
begin
  zoomOff2;
end;

Hope this helps!

[msd48]

Hi, Narcís

Second option - the very it!

Thanks for help.
The question is closed.