Vega.FindDlg — Suchen und Ersetzen

Die einzigen Standarddialoge in Vega, die nicht modal laufen. Execute(app) zeigt das Fenster und kehrt sofort zurück; was der Nutzer will, kommt über OnFind, OnReplace und OnClose. Der Dialog kennt weder Text noch Editor — der Handler liest FindText, ReplaceText und Options und sucht selbst. Ein modaler Suchdialog wäre einer, mit dem man nicht suchen kann.

Quelldatei: Vega/FindDlg.lyx

→ Alle Units · Alle Steuerelemente · Vega VCL

Klassen

Klasse	Basis	Zweck
TFindDialog	—	Suchen-Fenster mit Text, Optionen und „Weitersuchen“
TReplaceDialog	TFindDialog	Dasselbe Fenster plus Ersetzungstext und zwei Ersetzen-Knöpfe

Typaliase

Name	Ist	Zweck
`TFindEvent`	`fn(sender: TFindDialog): void`	Handler beider Dialoge: `fn(sender: TFindDialog): void`

Konstanten

Name	Typ	Wert	Bedeutung
`frDown`	int64	`1`	Abwärts suchen (Bitmaske, Vorgabe)
`frMatchCase`	int64	`2`	Groß- und Kleinschreibung beachten (Bitmaske)
`frWholeWord`	int64	`4`	Nur ganze Wörter (Bitmaske)
`frReplaceAll`	int64	`8`	Alle ersetzen statt nur des nächsten Treffers (Bitmaske)

Freie Funktionen

Signatur	Zweck
`NewFindDialog(): TFindDialog`	Erzeugt einen Suchen-Dialog
`NewReplaceDialog(): TReplaceDialog`	Erzeugt einen Suchen-und-Ersetzen-Dialog

Zu beachten

Execute liefert kein Ergebnis im Sinne von „OK gedrückt“ — es zeigt nur. Ein zweites Execute öffnet kein zweites Fenster.
Form ist öffentlich, weil ein nicht-modales Fenster von außen erreichbar sein muss.
BuildForm, AddButtons und DialogHeight sind virtuell: der Ersetzen-Dialog hängt ein Feld und zwei Knöpfe an, statt das Fenster zweimal zu bauen (gemessen: 190 gegen 226 Pixel).
„Ersetzen“ und „Alle ersetzen“ feuern dasselbe OnReplace; unterschieden wird über frReplaceAll.
Weggelassen sind die fr*-Bits, die in Delphi nur die Windows-Dialogvorlage steuern (frShowHelp, frHidden, frDisableUpDown …) — Vega zeichnet den Dialog selbst.

Abhängigkeiten

Importiert: Vega.Types, Vega.Events, Vega.Canvas, Vega.Theme, Vega.Control, Vega.Font, Vega.Strings, Vega.Lists, Vega.Style, Vega.StdCtrls, Vega.Edits, Vega.Extras, Vega.Forms, Vega.Dialogs

Wird importiert von: keiner anderen Vega-Unit

Letzte Aktualisierung: 2026-08-20 — Klassen, Aufzählungen, Konstanten und freie Funktionen maschinell aus Vega/FindDlg.lyx erhoben.