How do I setup a "onClick" event without using the object inspector?
I have a form that has 56 charts on it. I defined the charts as an array and set the properties in the code snippet below:
var
TestProgressForm: TTestProgressForm;
Charts : array[1..MAX_WFR_COL,1..MA
Procedure TTestProgressForm.AssignCh
var col,row : integer;
ChartSeries : TChartSeries;
begin
for col := 1 to MAX_WFR_COL do begin
for row := 1 to MAX_WFR_ROW do begin
Charts[col,row] := Tchart.Create(TestProgress
Charts[col,row].Parent := TestProgressForm;
BarSeries[col,row] := TBarSeries.Create(self);
Charts[col,row].AddSeries(
charts[col,row].Enabled := TRUE;
charts[col,row].Width := 80;
charts[col,row].Height := 80;
{set up properties here}
charts[col,row].Top := 15 + (row-1)*(charts[col,row].H
charts[col,row].Left := 55 + (col-1)*(charts[col,row].W
with charts[col,row].Series[0] as TBarSeries do begin
Clear;
CustomBarWidth := 10;
title := '';
Marks.Visible := FALSE;
ColorEachPoint := True;
Marks.Style := smsPercent;
Visible := False ;
ShowInLegend := False;
AutoMarkPosition := False;
HorizAxis := aBottomAxis;
VertAxis := aLeftAxis;
end;
end;
end;
end;
What I would like to do is set up the code so that when I click or double click on the chart a new form is displayed showing the details. The new form would be called TestDetails and would need to know which chart was double clicked on. I do not how to go about defining this.
Thank you,
p
var
TestProgressForm: TTestProgressForm;
Charts : array[1..MAX_WFR_COL,1..MA
Procedure TTestProgressForm.AssignCh
var col,row : integer;
ChartSeries : TChartSeries;
begin
for col := 1 to MAX_WFR_COL do begin
for row := 1 to MAX_WFR_ROW do begin
Charts[col,row] := Tchart.Create(TestProgress
Charts[col,row].Parent := TestProgressForm;
BarSeries[col,row] := TBarSeries.Create(self);
Charts[col,row].AddSeries(
charts[col,row].Enabled := TRUE;
charts[col,row].Width := 80;
charts[col,row].Height := 80;
{set up properties here}
charts[col,row].Top := 15 + (row-1)*(charts[col,row].H
charts[col,row].Left := 55 + (col-1)*(charts[col,row].W
with charts[col,row].Series[0] as TBarSeries do begin
Clear;
CustomBarWidth := 10;
title := '';
Marks.Visible := FALSE;
ColorEachPoint := True;
Marks.Style := smsPercent;
Visible := False ;
ShowInLegend := False;
AutoMarkPosition := False;
HorizAxis := aBottomAxis;
VertAxis := aLeftAxis;
end;
end;
end;
end;
What I would like to do is set up the code so that when I click or double click on the chart a new form is displayed showing the details. The new form would be called TestDetails and would need to know which chart was double clicked on. I do not how to go about defining this.
Thank you,
p
Who is Participating?
I think it would be easier just to use some determining code in the OnClick handler... like this:
if (Sender as TChart).Name = "Chart1" then...
If there is position information, where you can determine
which chart is being accessed by it's X and Y coordinates, you can do that too, like
ChartID : integer;
ChartID = Idfunc((Sender as TChart).Left,(Sender as TChart).Bottom);
Where IDfunc returns the index as a function of left and right.
Finally, if you use the tag field when you create, putting in the number of the chart, then you can just do this:
...during creation of the charts
Charts[col,row].tag = col*100+row;
...during the OnClick
switch(Sender as TChart).tag)
...
if (Sender as TChart).Name = "Chart1" then...
If there is position information, where you can determine
which chart is being accessed by it's X and Y coordinates, you can do that too, like
ChartID : integer;
ChartID = Idfunc((Sender as TChart).Left,(Sender as TChart).Bottom);
Where IDfunc returns the index as a function of left and right.
Finally, if you use the tag field when you create, putting in the number of the chart, then you can just do this:
...during creation of the charts
Charts[col,row].tag = col*100+row;
...during the OnClick
switch(Sender as TChart).tag)
...
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
All Courses
From novice to tech pro — start learning today.
1. In your form declaration add a new procedure declaration:
type
TTestProgressForm =
...
public
...
procedure ChartsClick(Sender: TObject); // common to all charts clicks
...
end;
2. Write that procedure in the 'implementation' section
procedure TTestProgressForm.ChartsCl
begin
if (Sender is TChart) then begin
// Assign the chart to a property of TestDetails form
TestDetails.TheChart := (Sender as TChart);
// Show the form
TestDetails.Show;
end;
end;
3. Add next line somewhere in your loop above (when creating the charts:
// This line assigns ChartsClick procedure as OnClick event handler (their declarations must be the same)
charts[col,row].OnClick := ChartsClick;
4. In TestDetails form:
TestDetails =
private
FChart: TChart; // new private field
....
public
property TheChart: TChart read FChart write FChart; // new public property to hold a reference to a chart
...
end;
Now, in the events of TestDetails form you can use 'TheChart' to obtain a reference to the chart that has been clicked last. For example:
with TheChart.Series[0] as TBarSeries do begin
...
end;
Perhaps there is an easier way but that's coming up in my mind now and it's almost 5 AM here. If you need more info, please ask.
Regards, Geo