====== Vega.Dialogs — Meldungen, Rückfragen, Eingabe ====== ''ShowMessage'', ''MessageDlg'', ''ConfirmDlg'', ''InputBox'' — die kleinen Dialoge. Es sind gewöhnliche [[lyx_-_programmiersprache:vega:controls:tform|TForm]]-Fenster mit ein paar Controls darin, kein Sonderweg. Besonders ist allein, dass sie über ''TApplication.ShowModal'' gezeigt werden: der Aufruf kehrt erst zurück, wenn ein Ergebnis feststeht. Quelldatei: ''Vega/Dialogs.lyx'' → [[lyx_-_programmiersprache:vega:units|Alle Units]] · [[lyx_-_programmiersprache:vega:controls|Alle Steuerelemente]] · [[lyx_-_programmiersprache:vega|Vega VCL]] ---- ===== Aufzählungen ===== ^ Enum ^ Werte ^ Zweck ^ | ''TMsgButtons'' | ''MB_OK'' (0), ''MB_OK_CANCEL'' (1), ''MB_YES_NO'' (2), ''MB_YES_NO_CANCEL'' (3) | Welche Knöpfe der Dialog zeigt | ===== Konstanten ===== ^ Name ^ Typ ^ Wert ^ Bedeutung ^ | ''VEGA_DLG_PAD'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | ''16'' | Innenabstand im Dialog | | ''VEGA_DLG_BTN_W'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | ''90'' | Knopfbreite | | ''VEGA_DLG_BTN_H'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | ''28'' | Knopfhöhe | | ''VEGA_DLG_MIN_W'' | [[lyx_-_programmiersprache:sprache:datentypen#1_ganzzahl-typen_signiert|int64]] | ''260'' | Mindestbreite eines Dialogs | ===== Freie Funktionen ===== ^ Signatur ^ Zweck ^ | ''ShowMessage(app: TApplication, text: pchar): void'' | Meldung mit einem ''OK''-Knopf | | ''ShowMessageTitled(app: TApplication, caption: pchar, text: pchar): void'' | Wie ''ShowMessage'', mit eigenem Fenstertitel | | ''MessageDlg(app: TApplication, text: pchar, buttons: int64): int64'' | Meldung mit wählbaren Knöpfen; liefert ''mrOk'', ''mrCancel'', ''mrYes'', ''mrNo'' | | ''MessageDlgTitled(app: TApplication, caption: pchar, text: pchar, buttons: int64): int64'' | Wie ''MessageDlg'', mit eigenem Fenstertitel | | ''ConfirmDlg(app: TApplication, text: pchar): bool'' | Rückfrage mit Ja/Nein; ''true'' bei Ja | | ''InputBox(app: TApplication, caption: pchar, prompt: pchar, dflt: pchar, result: TTextBuffer): bool'' | Fragt eine Zeile Text ab; ''false'' bei Abbruch, sonst steht das Ergebnis im Puffer | ---- ===== Zu beachten ===== * Jeder dieser Aufrufe braucht die [[lyx_-_programmiersprache:vega:controls:tapplication|TApplication]] als **erstes** Argument — aus einem Handler über ''AppOfControl(sender)''. * Die Dialoge werden selbst gezeichnet und nicht beim Fenstersystem bestellt: derselbe Grund wie bei [[lyx_-_programmiersprache:vega:units:filedlg|Vega.FileDlg]] — überall gleich aussehen. * ''InputBox'' schreibt in einen übergebenen [[lyx_-_programmiersprache:vega:controls:ttextbuffer|TTextBuffer]]; der Aufrufer legt ihn an und gibt ihn frei. ---- ===== Abhängigkeiten ===== **Importiert:** [[lyx_-_programmiersprache:vega:units:types|Vega.Types]], [[lyx_-_programmiersprache:vega:units:events|Vega.Events]], [[lyx_-_programmiersprache:vega:units:canvas|Vega.Canvas]], [[lyx_-_programmiersprache:vega:units:theme|Vega.Theme]], [[lyx_-_programmiersprache:vega:units:control|Vega.Control]], [[lyx_-_programmiersprache:vega:units:font|Vega.Font]], [[lyx_-_programmiersprache:vega:units:strings|Vega.Strings]], [[lyx_-_programmiersprache:vega:units:style|Vega.Style]], [[lyx_-_programmiersprache:vega:units:stdctrls|Vega.StdCtrls]], [[lyx_-_programmiersprache:vega:units:edits|Vega.Edits]], [[lyx_-_programmiersprache:vega:units:forms|Vega.Forms]] **Wird importiert von:** [[lyx_-_programmiersprache:vega:units:colordlg|Vega.ColorDlg]], [[lyx_-_programmiersprache:vega:units:editbtn|Vega.EditBtn]], [[lyx_-_programmiersprache:vega:units:filedlg|Vega.FileDlg]], [[lyx_-_programmiersprache:vega:units:fontdlg|Vega.FontDlg]] Letzte Aktualisierung: 2026-08-20 — Klassen, Aufzählungen, Konstanten und freie Funktionen maschinell aus ''Vega/Dialogs.lyx'' erhoben.