TCustomEditButton — Eingabefeld mit Knopf

Ein TEdit mit einem kleinen Knopf am rechten Rand. Basis von TFileNameEdit, TDirectoryEdit und TDateEdit; direkt benutzt man es nur, wenn man ein eigenes Feld dieser Art baut.

Unit: Vega.EditBtn · Basis: TEdit

→ Alle Steuerelemente · Guide: Eigene Controls

Eigene Ableitung — der ganze Aufwand steckt in RunDialog:

type TFarbEdit = class extends TCustomEditButton {
  fn Create(text: pchar): void {
    self.InitEditButton(text);
    self.SetButtonCaption("…");
  }

  override fn RunDialog(): void {
    // eigenen Dialog zeigen, dann:
    self.AcceptPath("#ff8800");     // setzt Text, feuert OnChange und OnAccept
  }
}

Ohne eigenen Dialog reicht AutoDialog := false und ein Handler:

e.AutoDialog := false;
e.OnButtonClick := ZeigeZuletztBenutzte;

• Es ist ein Control, keine Verbindung aus Panel, Feld und Knopf. Der Fokus hängt darum am richtigen Objekt, der Knopf klaut ihn nicht, und as TEdit funktioniert weiter.
• Möglich wird das durch eine einzige überschriebene Stelle: TextAreaWidth(). Sie kürzt die Textfläche um die Knopfbreite — Bildlauf, Mausrechnung und Zeichnen richten sich von selbst danach.
• ButtonWidth = 0 heißt: aus der Feldhöhe ableiten. Der Knopf bleibt quadratisch und wächst mit dem Thema mit; EffectiveButtonWidth() liefert den tatsächlichen Wert.
• Reihenfolge beim Klick: OnButtonClick zuerst, danach RunDialog — und nur, wenn AutoDialog gesetzt ist.
• AcceptPath ist der gemeinsame Übernahmeweg aller Ableitungen: Text setzen, Marke ans Ende, OnChange, OnAccept.

Letzte Aktualisierung: 2026-08-20 — API maschinell aus Vega/EditBtn.lyx erhoben, Beispiel mit lyxc 1.1.3O übersetzt.

Alle Eigenschaften, auch die geerbten.

Alle Methoden, auch die geerbten.

Letzte Aktualisierung: 2026-08-20 — API maschinell aus Vega/EditBtn.lyx erhoben, Beispiel mit lyxc 1.1.3O übersetzt.