Skriptovací jazyk - funkce MsgDlg: Porovnání verzí
m |
m |
||
Řádek 33: | Řádek 33: | ||
Ve skriptovacím jazyku jsou dále dostupné obdobné systémové funkce: | Ve skriptovacím jazyku jsou dále dostupné obdobné systémové funkce: | ||
− | function MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer; | + | function MessageDlg(Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer; |
− | procedure ShowMessage(Msg: Variant); | + | procedure ShowMessage(Msg: Variant); |
− | function InputBox(ACaption, APrompt, ADefault: string): string | + | function InputBox(ACaption, APrompt, ADefault: string): string |
− | function InputQuery(ACaption, APrompt: string; var Value: string): Boolean | + | function InputQuery(ACaption, APrompt: string; var Value: string): Boolean |
Aktuální verze z 18. 3. 2013, 14:34
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