zoukankan      html  css  js  c++  java
  • Delphi里面弹出对话框的方法

    1.procedure   ShowMessage(const   Msg:   string);

        单元:Dialogsor   QDialogs

        例子:showmessage( 'hello ');

    2.function   MessageBox(const   Text,   Caption:   PChar;   Flags:   Longint   =   MB_OK):   Integer;

        单元:Forms

        例子:MessageBox( 'This   should   be   on   top. ',   'Look ',   mb_OK)

        注:delphi的帮助文档提供的例子好像有误他的最后一个参数是[sbmok]

    3.function   MessageDlg(const   Msg:   string;   DlgType:   TMsgDlgType;   Buttons:   TMsgDlgButtons;   HelpCtx:   Longint):   Word;

        单元:Dialogsor   QDialogs

        例子:if   messagedlg( '确定要退出吗? ',mtwarnint,[mbyes,mbno],0)=mryes   then   close;

    4.int   MessageBox(

            HWND   hWnd, //   handle   of   owner   window

            LPCTSTR   lpText, //   address   of   text   in   message   box

            LPCTSTR   lpCaption, //   address   of   title   of   message   box    

            UINT   uType   //   style   of   message   box

          );

        单元:windows   API

        例子:windows.messagebox(0, '标题 ', '警告错误 ',MB_ICONSTOP);

  • 相关阅读:
    项目经验:如何做到不和产品打起来
    leetcode-剑指30-OK
    leetcode-剑指05-OK
    leetcode-剑指58-OK
    leetcode-剑指28-OK
    leetcode-剑指53-I
    leetcode-剑指18-OK
    leetcode-剑指15-OK
    leetcode-剑指27-OK
    leetcode-剑指17-OK
  • 原文地址:https://www.cnblogs.com/blogpro/p/11426570.html
Copyright © 2011-2022 走看看