TFindDialog — Suchen

Der einzige Standarddialog in Vega, der nicht modal läuft — zusammen mit seiner Ableitung TReplaceDialog. Das ist kein Versehen, sondern der Zweck: während das Fenster offen steht, soll man im Text weiterarbeiten und immer wieder „Weitersuchen“ drücken können.

Unit: Vega.FindDlg · Basis: keine — eigene Wurzel

→ Alle Steuerelemente · Guide: Dialoge · TReplaceDialog

Vererbung

Kette: TFindDialog — eigene Wurzel, kein Vorfahr. Was diese Klasse kann, steht vollständig auf dieser Seite.

Direkte Nachfahren: TReplaceDialog

Quelle: vega/finddlg.lyx

Verwendung

fn AufSuchen(sender: TFindDialog): void {
  // Der Handler sucht selbst — der Dialog kennt weder Text noch Editor.
  Print(sender.FindText.AsPChar());
  Print(IntToStr(sender.HasOption(frDown) as int64));       // 1 = abwärts
  Print(IntToStr(sender.HasOption(frMatchCase) as int64));
}

var d: TFindDialog := new TFindDialog();
d.SetTitle("Suchen");
d.SetFindText("Bello");
d.SetOption(frMatchCase, true);
d.OnFind := AufSuchen;
d.OnClose := AufZu;

d.Execute(app);          // zeigt das Fenster und kehrt SOFORT zurück
// ... das Programm läuft weiter, der Dialog bleibt offen
d.CloseDialog();

Nicht modal — was daraus folgt

  • Execute(app) kehrt sofort zurück. Es gibt keinen Rückgabewert „der Nutzer hat OK gedrückt“; alles kommt über die Ereignisse.
  • Ein zweites Execute öffnet kein zweites Fenster — es holt das vorhandene nach vorn.
  • Form ist öffentlich: ein nicht-modales Fenster muss von außen erreichbar sein, etwa um es zu verschieben oder gezielt zu schließen.
  • Visible sagt, ob es gerade steht.
Ereignis Wann
OnFind „Weitersuchen“ wurde gedrückt
OnClose Das Fenster ist zu

Gemessen: drei Klicks auf „Weitersuchen“ ergeben drei OnFind-Meldungen bei weiterhin offenem Fenster.

Optionen

Bit Wert Bedeutung
frDown 1 Abwärts suchen (Vorgabe)
frMatchCase 2 Groß- und Kleinschreibung beachten
frWholeWord 4 Nur ganze Wörter
frReplaceAll 8 Alle ersetzen — nur bei TReplaceDialog

Options ist eine Bitmaske; gelesen wird mit HasOption(bit), gesetzt mit SetOption(bit, v). Beide Richtungen greifen: ein Klick ins Kästchen ändert Options, und SetOption schaltet das Kästchen um.

Besonderheiten

  • Der Dialog sucht nicht. Er kennt weder Text noch Editor; der Handler liest FindText und Options und macht die Arbeit. Delphi teilt es genauso auf — anders ginge es auch nicht, ohne dem Dialog ein Textmodell aufzuzwingen.
  • ReadFromControls() zieht den Stand aus den Eingabefeldern in die Felder des Dialogs; vor jedem Ereignis passiert das von selbst.
  • BuildForm, AddButtons, DialogHeight und DialogWidth sind virtuell — daran hängt sich TReplaceDialog ein, statt das Fenster ein zweites Mal zu bauen. Gemessen: DialogHeight() liefert 190, beim Ersetzen-Dialog 226 — auch über eine TFindDialog-Variable, der virtuelle Aufruf greift also über die Unit-Grenze.
  • Weggelassen sind die fr*-Bits aus Delphi, die nur die Windows-Dialogvorlage steuern (frShowHelp, frHidden, frDisableUpDown …): Vega zeichnet den Dialog selbst, ein Schalter zum Ausgrauen eines fremden Vorlagenfelds hätte hier keine Wirkung. Geblieben sind die drei, die den Suchvorgang betreffen.

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

Methoden

Alle Methoden, auch die geerbten.

Signatur Zweck Herkunft
Create(): void Konstruktor eigen
Destroy(): void Gibt eigene Ressourcen frei eigen
SetTitle(s: pchar): void Fenstertitel setzen eigen
SetFindText(s: pchar): void Suchtext setzen eigen
HasOption(bit: int64): bool Ist dieses Optionsbit gesetzt eigen
SetOption(bit: int64, v: bool): void Optionsbit setzen — schaltet auch das Kästchen um eigen
DialogHeight(): int64 Höhe des Fensters — überschreibbar eigen
DialogWidth(): int64 Breite 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
SetOptionQuiet(bit: int64, v: bool): void Optionsbit setzen, ohne die Kästchen anzufassen eigen
Execute(app: TApplication): bool Fenster zeigen und sofort zurückkehren; ein zweiter Aufruf holt es nach vorn eigen
CloseDialog(): void Fenster schließen eigen
DoFind(): void OnFind auslösen — als ob „Weitersuchen“ gedrückt worden wäre eigen

Ereignisse

Name Typ Wann Herkunft
OnFind TFindEvent „Weitersuchen“ wurde gedrückt eigen
OnClose TFindEvent Fenster wird geschlossen eigen

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