开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
MbForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

Delphi

MbForm.pas：源码内容
  1. unit MBForm;
  3. interface
  5. uses
  6.   SysUtils, Qt, Classes, QGraphics, QControls,
  7.   QForms, QDialogs, QStdCtrls, QExtCtrls, Spin, QButtons, QComCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     ButtonMessageDlg: TButton;
  12.     ButtonShowMessage: TButton;
  13.     ButtonShowMessagePos: TButton;
  14.     GroupBox1: TGroupBox;
  15.     RadioWarning: TRadioButton;
  16.     RadioError: TRadioButton;
  17.     RadioInformation: TRadioButton;
  18.     RadioConfirmation: TRadioButton;
  19.     Bevel1: TBevel;
  20.     Edit1: TEdit;
  21.     Label1: TLabel;
  22.     RadioCustom: TRadioButton;
  23.     GroupBox2: TGroupBox;
  24.     RadioOK: TRadioButton;
  25.     RadioOKCancel: TRadioButton;
  26.     RadioYesNo: TRadioButton;
  27.     RadioYesNoCancel: TRadioButton;
  28.     ButtonMsgDlgPos: TButton;
  29.     SpinY: TSpinEdit;
  30.     SpinX: TSpinEdit;
  31.     Label2: TLabel;
  32.     Label3: TLabel;
  33.     ButtonInputBox: TButton;
  34.     ButtonInputQuery: TButton;
  35.     Bevel2: TBevel;
  36.     EditCaption: TEdit;
  37.     EditPrompt: TEdit;
  38.     EditValue: TEdit;
  39.     Label4: TLabel;
  40.     Label5: TLabel;
  41.     Label6: TLabel;
  42.     ButtonQuit: TButton;
  43.     procedure ButtonMessageDlgClick(Sender: TObject);
  44.     procedure RadioWarningClick(Sender: TObject);
  45.     procedure RadioErrorClick(Sender: TObject);
  46.     procedure RadioInformationClick(Sender: TObject);
  47.     procedure RadioConfirmationClick(Sender: TObject);
  48.     procedure RadioCustomClick(Sender: TObject);
  49.     procedure FormCreate(Sender: TObject);
  50.     procedure RadioOKClick(Sender: TObject);
  51.     procedure RadioOKCancelClick(Sender: TObject);
  52.     procedure RadioYesNoClick(Sender: TObject);
  53.     procedure RadioYesNoCancelClick(Sender: TObject);
  54.     procedure ButtonMsgDlgPosClick(Sender: TObject);
  55.     procedure ButtonShowMessageClick(Sender: TObject);
  56.     procedure ButtonShowMessagePosClick(Sender: TObject);
  57.     procedure ButtonInputBoxClick(Sender: TObject);
  58.     procedure ButtonInputQueryClick(Sender: TObject);
  59.     procedure ButtonQuitClick(Sender: TObject);
  60.   private
  61.     { Private declarations }
  62.     MsgDlgType: TMsgDlgType;
  63.     MsgButtons: TMsgDlgButtons;
  64.   public
  65.     { Public declarations }
  66.   end;
  68. var
  69.   Form1: TForm1;
  71. implementation
  73. {$R *.xfm}
  75. procedure TForm1.FormCreate(Sender: TObject);
  76. begin
  77.   MsgDlgType := mtWarning;
  78.   MsgButtons := [mbOk];
  79. end;
  81. procedure TForm1.ButtonMessageDlgClick(Sender: TObject);
  82. begin
  83.   MessageDlg (Edit1.Text, MsgDlgType, MsgButtons, 0);
  84. end;
  86. procedure TForm1.RadioWarningClick(Sender: TObject);
  87. begin
  88.   MsgDlgType := mtWarning;
  89. end;
  91. procedure TForm1.RadioErrorClick(Sender: TObject);
  92. begin
  93.   MsgDlgType := mtError;
  94. end;
  96. procedure TForm1.RadioInformationClick(Sender: TObject);
  97. begin
  98.   MsgDlgType := mtInformation;
  99. end;
  101. procedure TForm1.RadioConfirmationClick(Sender: TObject);
  102. begin
  103.   MsgDlgType := mtConfirmation;
  104. end;
  106. procedure TForm1.RadioCustomClick(Sender: TObject);
  107. begin
  108.   MsgDlgType := mtCustom;
  109. end;
  111. procedure TForm1.RadioOKClick(Sender: TObject);
  112. begin
  113.   MsgButtons := [mbOk];
  114. end;
  116. procedure TForm1.RadioOKCancelClick(Sender: TObject);
  117. begin
  118.   MsgButtons := mbOkCancel;
  119. end;
  121. procedure TForm1.RadioYesNoClick(Sender: TObject);
  122. begin
  123.   MsgButtons := [mbYes, mbNo];
  124. end;
  126. procedure TForm1.RadioYesNoCancelClick(Sender: TObject);
  127. begin
  128.     MsgButtons := mbYesNoCancel;
  129. end;
  131. procedure TForm1.ButtonMsgDlgPosClick(Sender: TObject);
  132. begin
  133.   MessageDlgPos (Edit1.Text, MsgDlgType, MsgButtons,
  134.     0, SpinX.Value, SpinY.Value);
  135. end;
  137. procedure TForm1.ButtonShowMessageClick(Sender: TObject);
  138. begin
  139.   ShowMessage (Edit1.Text);
  140. end;
  142. procedure TForm1.ButtonShowMessagePosClick(Sender: TObject);
  143. begin
  144.   ShowMessagePos (Edit1.Text, SpinX.Value, SpinY.Value);
  145. end;
  147. procedure TForm1.ButtonInputBoxClick(Sender: TObject);
  148. begin
  149.   EditValue.Text := InputBox (EditCaption.Text,
  150.     EditPrompt.Text, EditValue.Text);
  151. end;
  153. procedure TForm1.ButtonInputQueryClick(Sender: TObject);
  154. var
  155.   Text: String;
  156. begin
  157.   Text := EditValue.Text;
  158.   if InputQuery (EditCaption.Text, EditPrompt.Text, Text) then
  159.     EditValue.Text := Text;
  160. end;
  162. procedure TForm1.ButtonQuitClick(Sender: TObject);
  163. begin
  164.   Close;
  165. end;
  167. end.