Witam !
Mam problem ! Chciałbym aby po naciśnięciu jednego przycisku
"uruchomić" dwa wykresy równocześnie, tzn. Chart1 i chart2.
Jakoś mi to nie wychodzi, gdyż coś się " miesza ". Pomocy !
Cześć !
Witam !
Mam problem ! Chciałbym aby po naciśnięciu jednego przycisku
"uruchomić" dwa wykresy równocześnie, tzn. Chart1 i chart2.
Jakoś mi to nie wychodzi, gdyż coś się " miesza ". Pomocy !
Cześć !
Np. taki kod !
procedure TForm2.FormCreate(Sender: TObject);
begin
With Chart1 do
begin
With Series3 do
Begin
Clear ;
Add( 40, 'I' , clRed ) ;
Add( 60, 'II', clRed ) ;
Add( 10000, 'III', clRed ) ;
..........
end;
With Series2 do
Begin
Clear ;
Add( 40, 'I' , claqua ) ;
Add( 60, 'II', claqua ) ;
Add( 10000, 'III', claqua ) ;
.........
end;
With Series1 do
Begin
Clear ;
Add( 40, 'I' , clSkyBlue ) ;
Add( 60, 'II', clSkyBlue ) ;
Add( 10000, 'III', clSkyBlue ) ;
............
end;
end;
With Chart2 do
begin
With Series3 do
Begin
Clear ;
Add( 40, 'I' , clRed ) ;
Add( 40, 'I' , clRed ) ;
Add( 40, 'I' , clRed ) ;
end;
With Series2 do
Begin
Clear ;
Add( 40, 'I' , claqua) ;
Add( 40, 'I' , clRed ) ;
Add( 40, 'I' , clRed ) ;
end;
With Series1 do
Begin
Clear ;
Add( 40, 'I' , clSkyBlue ) ;
Add( 40, 'I' , clRed ) ;
Add( 40, 'I' , clRed ) ;
end;
end;
end;
end;
Pozdrowienia !
Albo wyświetlaj naprzemienie, albo wykorzystaj wątki.