Skriptovací jazyk - funkce MsgDlg: Porovnání verzí
m (→Funkce MsgDlg) |
m |
||
(Není zobrazena jedna mezilehlá verze od stejného uživatele.) | |||
Řádek 31: | Řádek 31: | ||
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ř.<br/> | 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ř.<br/> | ||
Vysledek = MsgDlg('Chcete pokračovat?', 'Dotaz', mtConfirmation, msgboxOK + msgboxCancel, 'mbOK=Pokračovat'#13'mbCancel=Zpět'); | 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 |
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