...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;