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.
    
  • 相关阅读:
    053389
    053388
    053387
    053386
    053385
    Docker简单部署Ceph测试集群
    docker部署Ceph分布式存储集群
    PIC单片机开发环境MPLAB X IDE
    MPLAB X安装,PIC单片机开发环境的搭建记录。
    MPLAB X IDE开发环境
  • 原文地址:https://www.cnblogs.com/del/p/1625002.html
Copyright © 2011-2022 走看看