Einzelnen Beitrag anzeigen

Benutzerbild von ibp
ibp

Registriert seit: 31. Mär 2004
Ort: Frankfurt am Main
1.511 Beiträge
 
Delphi 7 Architect
 
#4

Re: ValueListEditor - eintrag einfügen, ohne "änder&

  Alt 3. Jan 2007, 17:02
...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;
  Mit Zitat antworten Zitat