UniGui的信息弹出框MessageDlg的原型定义如下：

procedure MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; CallBack: TUniDialogCallBackAnonProc);

其中DlgType(对话框架的类型)
1、mtConfirmation
2、mtCustom
3、mtError
4、mtInformation
5、mtWarning

示例如下

procedure TMainForm.UniThemeButton1Click(Sender: TObject);
begin

  MessageDlg('This is a confirmation!', mtConfirmation, [mbOK],nil);
  UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("确认")');

  MessageDlg('This is information!', mtInformation, [mbOK],nil);
  UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("信息")');
  MessageDlg('This is a warning!', mtWarning, [mbOK],nil);
  UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("警告")');

  MessageDlg('This is an Error!', mtError, [mbOK],nil);
  UniSession.AddJS('Ext.get("messagebox-1001_header-title-textEl").setText("错误")');
end;
最后一个参数的使用方法:




 //mbYes, mbYesNo, mbYesNoCancel
  MessageDlg('是否？', mtConfirmation, mbYesNoCancel,
    procedure(Sender: TComponent; Res: Integer)
    begin
      Case Res of
        mrYes: // 点Ok后执行的语句
          begin
            caption := 'mrYes'
          end;
        mrNo:   // 点No后执行的语句
          begin
            caption := 'mrNo'
          end;
        mrCancel:   // 点Cancel后执行的语句
          begin
            caption := 'Mrcancel'
          end;
      end;
    end);





更多信息参见官网说明：


uniGUIDialogs.MessageDlg


 


    

  
内容来源于网络如有侵权请私信删除

  

  
        

      
文章来源: 博客园

  
      

      原文链接:
      
        https://www.cnblogs.com/tulater/p/12269298.html
      
    

  

       
        

 
  标签：
                        R语言
                                Delphi
                                erlang
                                verilog
                                dart
              

        

         	
      
    
      
    
                

  


                
        	

    你还没有登录，请先登录或注册！
  


        
    
      
  • 还没有人评论，欢迎说说您的想法！
    • 
  


        
        


  

    
相关课程

  

  

    

      

                                              

            

  

    
    
                
       
      
       
    
  

  

    

      
        [毕业设计不求人]Puthon智能点餐系统
      
    

    

    	 
      5995
                 
      



  	98元 
  	      	 	    

  


          

                                                

            

  

    
    
                
       
      
       
    
  

  

    

      
        Python大牛带你实现12306全自动抢票
      
    

    

    	 
      8961
                 
      



  	9.8元