Skriptovací jazyk - funkce MsgDlg

Z K.A.P.
Skočit na navigaciSkočit na vyhledávání

Funkce MsgDlg

Tato funkce slouží pro zobrazení modálního dialogu s textem a tlačítky. Výsledkem funkce je identifikace tlačítka, které uživatel vybral. Pomocí parametrů lze nastavit text zobrazený v dialogu, nadpis, typ dialogu a zobrazená tlačítka. Pomocí parametru btnCaptions lze také ovlivnit text zobrazený v jednotlivých tlačítkách.

type TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation, mtCustom);
const
 msgboxYes      = 1;
 msgboxNo       = 2;
 msgboxOK       = 4;
 msgboxCancel   = 8;
 msgboxAbort    = 16;
 msgboxRetry    = 32;
 msgboxIgnore   = 64;
 msgboxAll      = 128;
 msgboxNoToAll  = 256;
 msgboxYesToAll = 512;
 mrNone         = 0;
 mrOk           = 1;
 mrCancel       = 2;
 mrAbort        = 3;
 mrRetry        = 4;
 mrIgnore       = 5;
 mrYes          = 6;
 mrNo           = 7;
 mrAll          = 8;
 mrNoToAll      = 9;
 mrYesToAll     = 10;
Function MsgDlg(AText, ACaption: String; DlgType: TMsgDlgType; Buttons: Integer; btnCaptions: String = ' '): integer;

Seznam zobrazených tlačítek se zadává jako součet konstant msgboxXXX (např. msgboxOK + msgboxCancel). Výsledkem funkce je číslo tlačítka (viz. konstanty mrXXX).

Pokud parametr btnCaptions zůstane prázdný, tak se použijí výchozí popisky tlačítek. Pokud je třeba popisy tlačítek změnit, tak je třeba parametr btnCaptions zadat ve formátu 'mbXXX=text_tlačítka'#13 ... #13'mbYYY=text_tlačítka'. Např.
Vysledek = MsgDlg('Chcete pokračovat?', 'Dotaz', mtConfirmation, msgboxOK + msgboxCancel, 'mbOK=Pokračovat'#13'mbCancel=Zpět');

Ve skriptovacím jazyku jsou dále dostupné obdobné systémové funkce:

function MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
procedure ShowMessage(Msg: Variant);
function InputBox(ACaption, APrompt, ADefault: string): string
function InputQuery(ACaption, APrompt: string; var Value: string): Boolean