TMaskEdit — Eingabefeld mit fester Form

Eine Maske beschreibt, was an welcher Stelle stehen darf: „00/00/0000“ nimmt an acht Stellen Ziffern und hält die beiden Schrägstriche fest. Die Literale lassen sich weder löschen noch überschreiben — getippt wird nur in die Lücken, und die Marke springt über alles Feste hinweg.

Unit: Vega.MaskEdit · Basis: TEdit

→ Alle Steuerelemente · Unit Vega.MaskEdit

var m: TMaskEdit := new TMaskEdit("00/00/0000");
m.SetParent(f);

Print(IntToStr(m.IsMasked() as int64));    // 1
Print(IntToStr(m.MaskLength()));           // 10
Print(IntToStr(m.FirstEditable()));        // 0
Print(IntToStr(m.CellKind(2)));            // 0 — MC_LITERAL, der Schrägstrich
Print(IntToStr(m.Accepts(0, 65) as int64));// 0 — 'A' passt nicht auf eine Ziffernstelle

m.SetMaskedText("24082026");
Print(m.EditText());                       // 24/08/2026
Print(IntToStr(m.IsValid() as int64));     // 1

var tb: TTextBuffer := new TTextBuffer();
m.TextWithoutMask(tb);
Print(tb.AsPChar());                       // 24082026

Hinter der Maske dürfen wie in Delphi zwei Angaben stehen, durch Strichpunkt getrennt: „00/00/00;1;_“ — die 1 liefert die Literale mit (0 nicht), danach folgt das Füllzeichen.

• Der Inhalt lebt nicht in TEdit.Text. Eine Maskenstelle hält genau ein Zeichen, und ein Zeichen kann mehrere Bytes lang sein; der Puffer von TEdit ist byteweise organisiert, jede Rechnung „Stelle drei“ wäre dort eine Suche. Deshalb ein Feld aus Codepoints, eine Zelle je Maskenstelle — daraus wird nach jeder Änderung der Text gebaut, den TEdit zeichnet. Zeichnen, Bildlauf und Marke bleiben dadurch unverändert.
• EditText() liefert den Text mit Literalen, TextWithoutMask(dst) ohne sie — je nachdem, was gespeichert werden soll. SaveLiteralChars legt die Vorgabe fest.
• IsValid() prüft nur die Pflichtstellen; Validate() prüft und meldet über OnValidationError. Es gibt keine Ausnahme: Lyx kennt keine, also liefert Validate das Ergebnis zurück. Wer nichts einhängt, merkt nichts.
• SetEditMask(„“) schaltet die Maske ab — das ist zugleich der Ersatz für Lazarus’ DisableMask/EnableMask; ein zweiter Weg wäre nur eine zweite Fehlerquelle.
• BlankChar ist das gezeigte Füllzeichen (Vorgabe MK_DEFAULT_BLANK = _), SpaceChar das, was beim Speichern für eine leere Stelle steht.
• TrimLeadingBlanks entspricht dem Maskenzeichen ! und wirkt in TextWithoutMask.

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

Alle Eigenschaften, auch die geerbten.

Alle Methoden, auch die geerbten.

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