ValueListEditor - eintrag einfügen, ohne "änder"-Prozedur

[ibp]

...oder du nutzt...

Delphi-Quellcode:

procedure machvieledingeinternmitmeinemvle;
begin
  valuelisteditor1.Strings.BeginUpdate;
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.EndUpdate;
end;

... folge ist die methode...

Delphi-Quellcode:

procedure TForm1.ValueListEditor1StringsChange(Sender: TObject);
begin
 showmessage('änderung');
end;

wird nur einmal aufgerufen....du könntest natürlich noch ein flag setzen...

Delphi-Quellcode:

var flagkeinonchangeweilinternverarbeitung:boolean;

procedure machvieledingeinternmitmeinemvle;
begin
  flagkeinonchangeweilinternverarbeitung:=true;
  valuelisteditor1.Strings.BeginUpdate;
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.Add('schlüssel=wert');
  valuelisteditor1.Strings.EndUpdate;
  flagkeinonchangeweilinternverarbeitung:=false;
end;

procedure TForm1.ValueListEditor1StringsChange(Sender: TObject);
begin
  if flagkeinonchangeweilinternverarbeitung then exit;

  showmessage('änderung');
end;