Hallo,

möchste in einem Programm ein kleines Protokoll einfügen und habe mir dazu jetzt den Valuelisteditor ausgesucht.

Habe schon das Forum durchsucht, aber leider noch keine passende Antwort gefunden.

1. Wie füge ich einen Eintrag immer in die ERSTE Zeile ein, oder wie erreiche ich es, dass bei einem neuen Eintrag automatisch nach unten gescrollt wird. Der zeitlich letzte Eintrag sollte also immer sichtbar sein. WIe dies geschieht ist erstmal egal.

2 Wie lösche ich alle Einträge auf einmal? Hab bisher nur Lösungen zum löschen einer speziellen Zeile gefunden.

Die Delphi-Hilfe ergab leider auch nicht

Hallo,

kommst du damit zurecht?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TDemoForm.ClearButtonClick(Sender: TObject);
begin
  VLE.Strings.Clear;
end;

procedure TDemoForm.AppendButtonClick(Sender: TObject);
var
  i: Integer;
begin
  with VLE do
  begin
    // neue Zeile als letzte Zeile anfügen und Index zurückliefern
    i := InsertRow('key' + IntToStr(Strings.Count), 'value', true);
    // wenn Index außerhalb des sichtbaren Bereichs ...
    if i >= VisibleRowCount then
      // Sichtfenster so verschieben, dass Index sichtbar wird
      TopRow := Succ(i - VisibleRowCount);
  end;
end;

procedure TDemoForm.InsertButtonClick(Sender: TObject);
begin
  with VLE do
  begin
    Row := 1;
    // neue Zeile vor Zeile 1 einfügen
    TopRow := InsertRow('key' + IntToStr(Strings.Count), 'value', false);
  end;
end;

Grüße vom marabu

Mit dem ersten Teil auf jeden Fall.

Wenn ich den zweiten richtig verstehe, geht es darum herauszufinden, wieviele Zeilen sichtbar sind, richtig? Wenn i größer ist, dannn.........

und ab da verstehe ich es nicht mehr ganz.

Wäre für eine kleine erklärung sehr dankbar.

Habe dir ein wenig Prosa in den Code geschrieben - ist es jetzt laut genug?

Freundliche Grüße vom marabu

super vielen Dank.

werde es bald ausprobieren...