zoukankan      html  css  js  c++  java
  • 可爱的 CreateMessageDialog


    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;
    
    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    var
      MsgInfo, MsgErr: TForm;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      MsgErr := CreateMessageDialog('错误', mtError, [mbOK]);
      MsgInfo := CreateMessageDialog('提示', mtInformation, [mbYes, mbNo], mbYes);
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      MsgErr.ShowModal;
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      MsgInfo.ShowModal;
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    begin
      case MsgInfo.ShowModal of
        IDYES: Text := 'Yes';
        IDNO : Text := 'No';
      else
        Text := 'Form1';
      end;
    end;
    
    end.
    
  • 相关阅读:
    tomcat安装
    hadoop相关
    kafka Windows安装
    linux安装mysql
    linux安装redis
    linux安装jdk
    netcore kafka操作
    windows文件上传到linux服务器上
    SqlServer索引的原理与应用(转载)
    mssql表分区
  • 原文地址:https://www.cnblogs.com/del/p/1625002.html
Copyright © 2011-2022 走看看