lyxvision.dialog

TDialog — modaler Dialog-Container. Blockiert die übergeordnete Anwendung bis der Benutzer den Dialog mit einem Befehl (cmOK, cmCancel …) beendet. Gibt das auslösende Command als Ergebniswert zurück.

→ lyxvision · lyxvision.window · lyxvision.button · lyxvision.inputline

Verwendung

import lyxvision.dialog;
import lyxvision.button;
import lyxvision.inputline;
import lyxvision.statictext;

fn ShowNameDialog(app: TApplication): pchar {
    var dlg: TDialog := TDialogNew(15, 6, 65, 16, "Name eingeben");

    TGroupInsert(dlg, TStaticTextNew(dlg, 2, 3, "Ihr Name:"));

    var input: TInputLine := TInputLineNew(dlg, 12, 3, 30, 64);
    TGroupInsert(dlg, input);

    TGroupInsert(dlg, TButtonNew(dlg, 10, 7, "  OK  ", cmOK));
    TGroupInsert(dlg, TButtonNew(dlg, 22, 7, "Abbruch", cmCancel));

    var result: int64 := TApplicationExecView(app, dlg);
    if (result = cmOK) {
        return TInputLineGetText(input);
    }
    return "";
}

Funktionen

Signatur	Sichtbarkeit	Beschreibung
`TDialogNew(x1: int64, y1: int64, x2: int64, y2: int64, title: pchar): TDialog`	pub	Erzeugt modalen Dialog
`TDialogGetResult(d: TDialog): int64`	pub	Gibt letztes Ergebnis-Command zurück
`TDialogEndModal(d: TDialog, cmd: int64): void`	pub	Beendet modalen Dialog mit Ergebnis-Command
`TDialogValid(d: TDialog, cmd: int64): bool`	pub	Prüft ob Dialog mit cmd beendet werden darf (Validierung)

Letzte Aktualisierung: 2026-05-22