selber aufrufen von OnChange verhindern?

[moelski]

Moin !

Das mit dem TAG war ein giter Hinweis.
Ich nehme einfach eine globale Variable

ChangedManuell : Boolean;

Und dann mache ich das so:

Delphi-Quellcode:

procedure TGraphViewDialog.ChartListBoxClick(Sender: TObject);
begin
  ChangedManuell := True;  // ab hier das OnChange verhindern
  Line_Active.Checked         := (MasterChart[ChartListBox.ItemIndex] as TFastLineSeries).Active;
  ColorDialog.Color           := (MasterChart[ChartListBox.ItemIndex] as TFastLineSeries).SeriesColor;
  Line_ColorView.Brush.Color  := (MasterChart[ChartListBox.ItemIndex] as TFastLineSeries).SeriesColor;
  Line_Breite.Value           := (MasterChart[ChartListBox.ItemIndex] as TFastLineSeries).LinePen.Width;
  ChangedManuell := False;
end;

Dann brauchts in jeder Funktion nur ein ....
If ChangedManuell then Exit; // nur Useränderungen zulassen ! Das ist vom Aufwand her überschaubar ...