bonjour,
J'affiche une autre fiche qui contient un graphique (créé à l'aide d'un TChart) quand je clique sur un bouton.
Mon pb c'est que le graph ne prend aucune des valeur que je lui ai données(car il ne rentre meme pa dans la procedure).
Je ne vois pas où est le probleme.
donc si quelqu'un peut m'aider à trouver mon erreur.
merci d'avance.

voici mon code:
interface

uses
WinTypes, WinProcs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, TeEngine, TeeProcs, Chart, Series;

type
TGraphique = class(TForm)
Chart1 : TChart;
Series2: TPointSeries;
Series3: TPointSeries;
Series4: TPointSeries;
Series5: TPointSeries;
Series1: TPointSeries;
Series6: TPointSeries;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormActivate(sender : TObject);


private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Graphique: TGraphique;

implementation
uses Calculs, opti, percage;

{$R *.DFM}

procedure TGraphique.FormActivate(Sender : TObject);
var MAT : TMatrice;
i,j : integer;
ValOpt : real;

begin
if TOptimisationDlg.RadioGroup1.ItemIndex = 0 then
begin
MAT := TpsUsinage;
ValOpt := TpsUsinageOpti;
end
else
begin
MAT := CoutUsinage;
ValOpt := CoutUsinageOpti;
end;
with Chart1 do
begin
series1.Clear;
series2.Clear;
series3.Clear;
series4.Clear;
series5.Clear;
series6.Clear;
series1.Active := true;
for i:= 0 to (VMaxTabBroche - 1) do
for j:= 0 to (VMaxTabVPouF -1) do
if MAT[i,j] = ValOpt then
series1.AddXY(i,j);

end;
end;

procedure TGraphique.Button1Click(Sender: TObject);
begin
close;
end;

end.