Inhaltsverzeichnis

TReplaceDialog — Suchen und Ersetzen

Dasselbe Fenster wie TFindDialog, um ein Eingabefeld und zwei Knöpfe erweitert: „Ersetzen“ und „Alle ersetzen“. Ebenfalls nicht modal.

Unit: Vega.FindDlg · Basis: TFindDialog

→ Alle Steuerelemente · Guide: Dialoge

Vererbung

Kette: TFindDialog → TReplaceDialog

Direkte Nachfahren: keine — diese Klasse wird nicht weiter abgeleitet.

Quelle: vega/finddlg.lyx

Verwendung

fn AufErsetzen(sender: TFindDialog): void {
  var r: TReplaceDialog := sender as TReplaceDialog;
  Print(sender.FindText.AsPChar());                            // alt
  Print(r.ReplaceText.AsPChar());                              // neu
  Print(IntToStr(sender.HasOption(frReplaceAll) as int64));    // 0 = einer, 1 = alle
}

var r: TReplaceDialog := new TReplaceDialog();
r.SetFindText("alt");
r.SetReplaceText("neu");
r.OnFind := AufSuchen;          // „Weitersuchen“ gibt es weiterhin
r.OnReplace := AufErsetzen;
r.Execute(app);

Besonderheiten

Letzte Aktualisierung: 2026-09-05 — gegen lyx-vcl/vega/*.lyx abgeglichen: Abschnitt „Vererbung„ (Vorfahr-Kette, direkte Nachfahren, Quelldatei) ergänzt und die fehlenden Eigenschaften, Methoden und Ereignisse nachgetragen.

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

Eigenschaften

Alle Eigenschaften, auch die geerbten.

Name Typ Bedeutung Herkunft
ReplaceText TTextBuffer Der Ersetzungstext eigen
Form TForm Das Fenster selbst — öffentlich, weil ein nicht-modaler Dialog von außen erreichbar sein muss TFindDialog
FindText TTextBuffer Der gesuchte Text TFindDialog
Options int64 Suchoptionen als Bitmaske: frDown (1), frMatchCase (2), frWholeWord (4), frReplaceAll (8) TFindDialog
Title TTextBuffer Titel des Fensters TFindDialog
Visible bool Wird gezeichnet und nimmt am Layout teil TFindDialog

Methoden

Alle Methoden, auch die geerbten.

Signatur Zweck Herkunft
Create(): void Konstruktor eigen
Destroy(): void Gibt eigene Ressourcen frei eigen
SetReplaceText(s: pchar): void Ersetzungstext setzen eigen
DialogHeight(): int64 Höhe des Fensters — überschreibbar eigen
BuildForm(): TForm Das Fenster aufbauen — überschreibbar eigen
AddButtons(dlg: TForm, w: int64, h: int64): void Die Knopfreihe anlegen — überschreibbar eigen
ReadFromControls(): void Stand der Eingabefelder in die Felder des Dialogs übernehmen eigen
DoReplace(alle: bool): void OnReplace auslösen; alle setzt frReplaceAll eigen
SetTitle(s: pchar): void Fenstertitel setzen TFindDialog
SetFindText(s: pchar): void Suchtext setzen TFindDialog
HasOption(bit: int64): bool Ist dieses Optionsbit gesetzt TFindDialog
SetOption(bit: int64, v: bool): void Optionsbit setzen — schaltet auch das Kästchen um TFindDialog
DialogWidth(): int64 Breite des Fensters — überschreibbar TFindDialog
SetOptionQuiet(bit: int64, v: bool): void Optionsbit setzen, ohne die Kästchen anzufassen TFindDialog
Execute(app: TApplication): bool Fenster zeigen und sofort zurückkehren; ein zweiter Aufruf holt es nach vorn TFindDialog
CloseDialog(): void Fenster schließen TFindDialog
DoFind(): void OnFind auslösen — als ob „Weitersuchen“ gedrückt worden wäre TFindDialog

Ereignisse

Name Typ Wann Herkunft
OnReplace TFindEvent „Ersetzen“ oder „Alle ersetzen“ — unterschieden über frReplaceAll eigen
OnFind TFindEvent „Weitersuchen“ wurde gedrückt TFindDialog
OnClose TFindEvent Fenster wird geschlossen TFindDialog

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