TVirtualTree, Knoten neuzeichnen

[hoika]

Hallo #,

folgender Code (vereinfacht)

Delphi-Quellcode:

procedure TForm.LV_TPDataFocusChanging(Sender: TBaseVirtualTree;
  OldNode, NewNode: PVirtualNode; OldColumn, NewColumn: TColumnIndex;
  var Allowed: Boolean);
begin
  if OldNode=NIL then Exit;

  if DataSaved then
  begin
   // to "reload view"
    Sender.InvalidateNode(OldNode);
   // Sender.Invalidate.  klappt auch nicht
  end
end;

Im FocusChanging prüfe, ob sich Daten geändert haben (es gibt noch ein paar Edits zum Ändern).
Ist das der Fall wird in die DB gespeichert und jetzt soll der alte Knoten aktualisiert werden.

Klappt aber nicht.
Es passiert einfahc nix (keine Ändeurng).

Notlösung.
Neuladen des kompletten Views im OnFocusChanged.

Was mache ich denn falsch ?


Danke


Heiko