TComponent — Wurzel aller Vega-Objekte

Die gemeinsame Wurzel: sie trägt Besitz, Namen, Tag und den Zustand einer Komponente — aber keine Geometrie und kein Zeichnen. Das kommt erst bei TControl dazu.

Unit: Vega.Component · Basis: keine

→ Alle Steuerelemente · TControl

Vega zieht die Trennlinie anders als Delphi, und zwar an der Frage, wer selbst in den Rahmenpuffer malt:

In Delphi sind auch Menüs und Dialoge nichtsichtbare Komponenten — aber nur, weil Windows sie selbst zeichnet und die VCL-Klasse ein Umschlag um HMENU bzw. GetOpenFileName ist. Vega zeichnet alles selbst, also bleiben TPopupMenu und die Dialoge im Control-Ast.

var f: TForm := new TForm(320, 200, "Fenster");
var b: TButton := new TButton("OK");
b.SetName("BtnOk");
b.SetParent(f as TControl);
f.InsertComponent(b as TComponent);      // siehe Besonderheiten

Print(IntToStr(f.ComponentCount()));                      // 1
Print(IntToStr(b.ComponentIndex()));                      // 0
var g: TComponent := f.FindComponent("BtnOk");            // findet den Knopf
Print(b.GetName());                                       // BtnOk
Print(IntToStr(b.HasParent() as int64));                  // 1

b.SetState(csDesigning);
Print(IntToStr(b.HasState(csDesigning) as int64));        // 1
b.ClearState(csDesigning);

var oc: TControl := b.OwnerControl();                     // das Fenster

• Owner ist nicht Parent. Owner sagt, wer aufräumt; Parent ist der Platz im Zeichenbaum. AddChild reicht den Besitzer nach unten durch, damit ein Handler über sender.Owner das Formular findet, egal wie tief das Control hängt. Von einem Control aus führt ''OwnerControl()'' direkt dorthin, ohne Umwandlung von Hand.

• Kein Konstruktor. Lyx vererbt Konstruktoren nicht; jede Ableitung ruft InitComponent() im eigenen Create().
• Destroy räumt die eigene Liste ab, nicht die Einträge darin. Wer seine Besitztümer mitnehmen will, ruft DestroyComponents() — das geht die Liste von hinten durch, weil sich jedes Destroy selbst austrägt.
• FindComponent sucht eine Ebene tief, unter den eigenen Komponenten, wie in Delphi. Für den ganzen Baum braucht es eine eigene Schleife.
• ComponentState und ComponentStyle sind Bitmasken, gelesen und gesetzt über HasState/SetState/ClearState:

• Tick und NextDueIn gibt es in Delphi nicht. Vega hält keine Betriebssystem-Zeitgeber je Komponente, sondern geht einmal je Bild über die Komponenten. Tick(now) liefert true, wenn sich etwas getan hat und neu gezeichnet werden muss; NextDueIn(now) sagt, wie lange die Schleife höchstens schlafen darf — -1 heißt „nie von selbst„. Beides ist virtuell, damit die Schleife nur die Wurzel kennen muss.
• HasParent und GetParentComponent melden in der Wurzel „nirgends“; TControl überschreibt beide mit Parent.
• Bewusst weggelassen (mit Begründung in Vega/Component.lyx): COM (ComObject, SafeCallException …) — gibt es außerhalb von Windows nicht; die Streaming-Haken der Delphi-IDE (DesignInfo, WriteState, SetSubComponent …) — Vega liest und schreibt Formulare über Vega.Lfm; FreeNotification/Notification — wäre ohne Wirkung, solange keine Komponente eine fremde referenziert; ExecuteAction/UpdateAction — bleibt in Vega.Actions.

Letzte Aktualisierung: 2026-08-20 — API maschinell aus Vega/Component.lyx erhoben, Beispiel mit lyxc 1.1.4A übersetzt und ausgeführt.

Alle Eigenschaften, auch die geerbten.

Alle Methoden, auch die geerbten.

Keine.

Letzte Aktualisierung: 2026-08-20 — API maschinell aus Vega/Component.lyx erhoben, Beispiel mit lyxc 1.1.4A übersetzt und ausgeführt.