Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: TTreeNode um eine weitere Variable erweitern

    Delphi
    by Flocke, 21. Jul 2005
  Aus dem Kopf ...
  type
  TMeinTreeNode = class(TTreeNode)
  // was immer du ändern willst
  end;
  dann im OI für das TTreeView-Control die Ereignisse ansehen und auf OnCreateNodeClass doppelt klicken und dann ergänzen:
  procedure TForm.TreeView1CreateNodeClass(Sender: TCustomTreeView;
  var NodeClass: TTreeNodeClass);
  begin
  NodeClass = TMeinTreeNode;
• Forum: Object-Pascal / Delphi-Language

  Re: TTreeNode um eine weitere Wariable erweitern

    Delphi
    by Flocke, 21. Jul 2005
  Du musst TTreeView.OnCreateNodeClass setzen und darin deine TTreeNodeSubclass als Klasse zurückgeben.
  
  Noch was:
  TTreeNode = class(ComCtrls.TTreeNode)
  private
  { Private declarations }
  ShouldExpand : Boolean;
  end;
  
  So solltest du es nicht machen, denke dir einen neuen Namen aus.