TreeView in Datei speichern bei bestimmten Aktionen

[marabu]

Guten Morgen,

da das Ereignis OnEdited() noch vor der endgültigen Änderung auftritt, bietet sich eine Nachrichtenverzögerung an:

Delphi-Quellcode:

uses
  ..., AppMessages;

{
unit AppMessages;
interface
uses
  Messages;
const
  UM_EDITED = WM_USER;
implementation
end.
}

type
  TDemoForm = class(TForm)
    TreeView: TTreeView;
    procedure FormCreate(Sender: TObject);
    procedure TreeViewCancelEdit(Sender: TObject; Node: TTreeNode);
    procedure TreeViewEdited(Sender: TObject; Node: TTreeNode;
      var S: String);
  private
    procedure UMEdited(var Message: TMessage); message UM_EDITED;
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.UMEdited(var Message: TMessage);
begin
  with Message do
  begin
    ShowMessage(TTreeNode(LParam).Text);
    Result := 0;
  end;
end;

procedure TDemoForm.TreeViewEdited(Sender: TObject; Node: TTreeNode;
  var S: String);
begin
  PostMessage(Handle, UM_EDITED, 0, Integer(Node));
end;

Grüße vom marabu