Im Thread TTreeView zur Laufzeit erzeugen

[schwa226]

Hallo,

ich möchte in einem Thread einen TreeView erzeugen.

Wenn der Thread startet erzeuge ich hiermit den TreeView:

Delphi-Quellcode:

  My_TreeView := TTreeView.Create(nil);

Wenn ich nun aber ein Item hinzufügen will kommt diese Meldung das My_TreeView kein übergeordnetes Fenster besitzt.
Wird ja auch mit NIL erzeugt. In einer Form würde es warscheinlich so aussehen:

Delphi-Quellcode:

  My_TreeView := TTreeView.Create(self);

Wie kann ich das aber im Thread machen?

[Luckie]

Warum willst du eine grafische Komponente in einem Thread erzeugen der kein Fenster hat? Du wirst den Treeview ja nie sehen.

[schwa226]

Ich brauche den TreeView zur virtuellen Darstellung. Der Treeview wird dann per Stream an Clients geschickt.

Nach etwas Suchen bin ich auch darauf gestoßen:

Delphi-Quellcode:

 My_TreeView := TTreeView.CreateParented(THandle(-3));

Dann geht's!

[Astat]

Zitat:

Zitat von schwa226

Ich brauche den TreeView zur virtuellen Darstellung. Der Treeview wird dann per Stream an Clients geschickt.

Nach etwas Suchen bin ich auch darauf gestoßen:

Delphi-Quellcode:

 

My_TreeView := TTreeView.CreateParented(THandle(-3));

Hallo schwa226, dass THandle(-3) geht ist reine Glücksache, da gibt es zufällig irgendwo ein Fenster mit DWORD - 1.
Auch ist das Vorhaben mit einem Thread und einem Visuellen Control keinesfalls zu empfehlen.

Du solltest folgendes versuchen.
1. Erstelle das Control im Mainthread
2. Befülle das Teil mit Daten
3. Streame die Daten in einen Threadsaven Buffer
4. Erst jetzt greifst Du mit dem Thread auf den Buffer zu, und arbeitest mit dem Stream weiter.


lg. Astat

[jbg]

Zitat:

Zitat von Astat

Du solltest folgendes versuchen.

Besser wäre wohl eine eigene Baumstruktur. Die wäre nicht nur schneller in der Verarbeitung als eine visuelle Komponente, sondern man kann sie auch in einem Thread befüllen.

Delphi-Quellcode:

type
  TNode = class(TObject)
  public
    // besser über Properties, aber ich bin gerade Schreibfaul
    FirstChild: TNode;
    NextSibling: TNode;

    MeineDaten: Integer;
    // ...

    procedure SaveToStream(Stream: TStream);
    procedure LoadFromStream(Stream: TStream);
  end;