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

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

Delphi控件源码

开发平台：

Delphi

MbForm.pas：源码内容
  1. unit MBForm;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, Spin, Buttons;
  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.     CheckHelp: TCheckBox;
  29.     ButtonMsgDlgPos: TButton;
  30.     SpinY: TSpinEdit;
  31.     SpinX: TSpinEdit;
  32.     Label2: TLabel;
  33.     Label3: TLabel;
  34.     ButtonInputBox: TButton;
  35.     ButtonInputQuery: TButton;
  36.     Bevel2: TBevel;
  37.     EditCaption: TEdit;
  38.     EditPrompt: TEdit;
  39.     EditValue: TEdit;
  40.     Label4: TLabel;
  41.     Label5: TLabel;
  42.     Label6: TLabel;
  43.     ButtonQuit: TButton;
  44.     procedure ButtonMessageDlgClick(Sender: TObject);
  45.     procedure RadioWarningClick(Sender: TObject);
  46.     procedure RadioErrorClick(Sender: TObject);
  47.     procedure RadioInformationClick(Sender: TObject);
  48.     procedure RadioConfirmationClick(Sender: TObject);
  49.     procedure RadioCustomClick(Sender: TObject);
  50.     procedure FormCreate(Sender: TObject);
  51.     procedure RadioOKClick(Sender: TObject);
  52.     procedure RadioOKCancelClick(Sender: TObject);
  53.     procedure RadioYesNoClick(Sender: TObject);
  54.     procedure RadioYesNoCancelClick(Sender: TObject);
  55.     procedure ButtonMsgDlgPosClick(Sender: TObject);
  56.     procedure ButtonShowMessageClick(Sender: TObject);
  57.     procedure ButtonShowMessagePosClick(Sender: TObject);
  58.     procedure ButtonInputBoxClick(Sender: TObject);
  59.     procedure ButtonInputQueryClick(Sender: TObject);
  60.     procedure ButtonQuitClick(Sender: TObject);
  61.   private
  62.     { Private declarations }
  63.     MsgDlgType: TMsgDlgType;
  64.     MsgButtons: TMsgDlgButtons;
  65.   public
  66.     { Public declarations }
  67.   end;
  69. var
  70.   Form1: TForm1;
  72. implementation
  74. {$R *.DFM}
  76. procedure TForm1.FormCreate(Sender: TObject);
  77. begin
  78.   MsgDlgType := mtWarning;
  79.   MsgButtons := [mbOk];
  80. end;
  82. procedure TForm1.ButtonMessageDlgClick(Sender: TObject);
  83. begin
  84.   if CheckHelp.Checked then
  85.     Include (MsgButtons, mbHelp);
  86.   MessageDlg (Edit1.Text, MsgDlgType, MsgButtons, 0);
  87. end;
  89. procedure TForm1.RadioWarningClick(Sender: TObject);
  90. begin
  91.   MsgDlgType := mtWarning;
  92. end;
  94. procedure TForm1.RadioErrorClick(Sender: TObject);
  95. begin
  96.   MsgDlgType := mtError;
  97. end;
  99. procedure TForm1.RadioInformationClick(Sender: TObject);
  100. begin
  101.   MsgDlgType := mtInformation;
  102. end;
  104. procedure TForm1.RadioConfirmationClick(Sender: TObject);
  105. begin
  106.   MsgDlgType := mtConfirmation;
  107. end;
  109. procedure TForm1.RadioCustomClick(Sender: TObject);
  110. begin
  111.   MsgDlgType := mtCustom;
  112. end;
  114. procedure TForm1.RadioOKClick(Sender: TObject);
  115. begin
  116.   MsgButtons := [mbOk];
  117. end;
  119. procedure TForm1.RadioOKCancelClick(Sender: TObject);
  120. begin
  121.   MsgButtons := mbOkCancel;
  122. end;
  124. procedure TForm1.RadioYesNoClick(Sender: TObject);
  125. begin
  126.   MsgButtons := [mbYes, mbNo];
  127. end;
  129. procedure TForm1.RadioYesNoCancelClick(Sender: TObject);
  130. begin
  131.     MsgButtons := mbYesNoCancel;
  132. end;
  134. procedure TForm1.ButtonMsgDlgPosClick(Sender: TObject);
  135. begin
  136.   if CheckHelp.Checked then
  137.     Include (MsgButtons, mbHelp);
  138.   MessageDlgPos (Edit1.Text, MsgDlgType, MsgButtons,
  139.     0, SpinX.Value, SpinY.Value);
  140. end;
  142. procedure TForm1.ButtonShowMessageClick(Sender: TObject);
  143. begin
  144.   ShowMessage (Edit1.Text);
  145. end;
  147. procedure TForm1.ButtonShowMessagePosClick(Sender: TObject);
  148. begin
  149.   ShowMessagePos (Edit1.Text, SpinX.Value, SpinY.Value);
  150. end;
  152. procedure TForm1.ButtonInputBoxClick(Sender: TObject);
  153. begin
  154.   EditValue.Text := InputBox (EditCaption.Text,
  155.     EditPrompt.Text, EditValue.Text);
  156. end;
  158. procedure TForm1.ButtonInputQueryClick(Sender: TObject);
  159. var
  160.   Text: String;
  161. begin
  162.   Text := EditValue.Text;
  163.   if InputQuery (EditCaption.Text, EditPrompt.Text, Text) then
  164.     EditValue.Text := Text;
  165. end;
  167. procedure TForm1.ButtonQuitClick(Sender: TObject);
  168. begin
  169.   Close;
  170. end;
  172. end.