Criar gráfico a partir dos items marcados do CheckListBox

um exemplo simples:

coloque um Chart (ou DBChart) no form e mais 2 ou 3 CheckBox, e nos eventos OnClick dos componentes CheckBox associe o método::


procedure TForm1.CheckBoxClick(Sender: TObject);
begin
if (Sender as TCheckBox).Checked then
begin
with TBarSeries.Create(Self) do
begin
Name := ´Serie_´+(Sender as TCheckBox).Name;
ParentChart := DBChart1;
FillSampleValues(4);
end;
end else
begin
if FindComponent(´Serie_´+(Sender as TCheckBox).Name) <> nil then
FindComponent(´Serie_´+(Sender as TCheckBox).Name).Free;
end;
end;


claro q para exclusão ou outra manipulação das Series criadas, o uso da propriedade DBChart1.SeriesList é muito mais ´charmoso´ que usar o FindComponent... até pq vc pode acessar/deletar as Series pelo ´índice´


T+