請教 如何讓 在tchart上 繪出的一些點，其中某些點，按某個button後不顯示

Hi seedbcc,    Do delete work !?

procedure TForm1.Series2Click(Sender: TChartSeries; ValueIndex: Integer;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  AValueIndex : Integer;
begin
  AValueIndex := Sender.GetCursorValueIndex;      IF AValueIndex > -1 THEN
    BEGIN
      Sender.Delete(AValueIndex);
    END;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

感謝您的回答 不過我要的方式 是隱藏 而非 刪除 刪除後，整條線 不就有變化了嗎

show FOR i:= 0 to cht.SeriesList.CountActive-1 do cht.SeriesList.Series[i].marks.visible:=true; hide FOR i:= 0 to cht.SeriesList.CountActive-1 do cht.SeriesList.Series[i].marks.visible:=false;

我的 Cht_VarControl.SeriesList 沒有.Series[i].marks.visible的屬性啦 而且，您的語法 好像是針對 每個series 而不是 點的樣子??

Hi seedbcc,    不知你的 Series 是否有 GetPointerStyle Function？如果有的話可以參考： http://delphi.ktop.com.tw/topic.php?TOPIC_ID=59143 並將不想顯示的點設為 TSeriesPointerStyle(0) 或是 psSmallDot 即可

function TForm1.Series1GetPointerStyle(Sender: TChartSeries;
  ValueIndex: Integer): TSeriesPointerStyle;
begin
  if CheckBox1.Checked then
    begin
      if Sender.YValue[ValueIndex] > 500 then
        Result := TSeriesPointerStyle(0)
      else
        Result := TSeriesPointerStyle(8)
    end
  else
    Result := TSeriesPointerStyle(0);
end;    procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Series1.Repaint;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

再請教個小問題 我是用button按之後  if CheckBox1.Checked then     begin 上述如何改呢 ?

小弟自己解決啦 感謝fishman大大 我用一個 變數(boolean值） 按button設true 改變點後，設false