dialogfrm.~pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit DialogFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Spin;

type
  TDialogForm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Button8: TButton;
    Button2: TButton;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    BitBtn1: TBitBtn;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    XEdit: TSpinEdit;
    YEdit: TSpinEdit;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DialogForm: TDialogForm;

implementation

{$R *.dfm}

procedure TDialogForm.Button1Click(Sender: TObject);
begin
 ShowMessage('这是ShowMessage过程消息框的范例！');
end;

procedure TDialogForm.Button3Click(Sender: TObject);
begin
 ShowMessagePos('这是ShowMessagePos过程消息框的范例！',XEdit.Value,YEdit.Value);
end;

procedure TDialogForm.FormCreate(Sender: TObject);
begin
 XEdit.MaxValue:=Screen.DesktopHeight;
 YEdit.MaxValue:=Screen.DesktopWidth;
end;

procedure TDialogForm.Button4Click(Sender: TObject);
begin
 ShowMessageFmt('%s %5.4e', ['1024用科学计数法表示为',1024.0])
end;

procedure TDialogForm.Button7Click(Sender: TObject);
var confirm: word;
begin
 confirm:=MessageDlg('文件还没有保存！是否保存？',mtWarning,[mbYes,mbNo,mbCancel], 0);
 case confirm of
  mrNo: showmessage('您按下的是“No”键');
  mrYes: showmessage('您按下的是“Yes”键');
  mrCancel: showmessage('您按下的是“Cancel”键');
 end
end;

procedure TDialogForm.Button5Click(Sender: TObject);
var Result: Integer;
begin
 with Application do
  begin
    NormalizeTopMosts;
    Result:=MessageBox('您认为“聪明的程序员用Delphi，真正的程序员用VC++”这句话正确吗？', '关于', MB_YESNO);
    RestoreTopMosts;
  end;
 If Result=6 then
   ShowMessage('真是英雄所见略同呀！呵呵')
  else
   ShowMessage('看来您和我的看法不一致！');
end;

procedure TDialogForm.Button6Click(Sender: TObject);
var confirm: word;
begin
 confirm:=MessageDlgPos('文件还没有保存！是否保存？',mtWarning,[mbYes,mbNo,mbCancel],0,XEdit.Value,YEdit.Value);
 case confirm of
  mrNo: showmessage('您按下的是“No”键');
  mrYes: showmessage('您按下的是“Yes”键');
  mrCancel: showmessage('您按下的是“Cancel”键');
 end
end;

procedure TDialogForm.Button2Click(Sender: TObject);
var name:string;
begin
 name:=InputBox('用户登录','请输入您的姓名  ：','编程爱好者');
 showmessage('欢迎您-'+name+'！');
end;

procedure TDialogForm.Button8Click(Sender: TObject);
var
  Name: string;
  ClickedOK: Boolean;
begin
  Name:= '编程爱好者';
  ClickedOK := InputQuery('用户登录', '输入姓名后按Ok，按Cancel跳过　　：',Name);
  if ClickedOK then
    ShowMessage(Name+'，欢迎您的光临！')
   else
    ShowMessage('好的，我们会为您保密的');
end;

end.