MessageDlg用法
2014-03-15 11:21
155 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Button1.Caption := 'mtWarning'; Label2.Caption := 'mbOkCancel'; if Word(mrCancel) = MessageDlg('Warning', mtWarning, mbOKCancel, 0) then Label1.Caption := 'mrCancel' else Label1.Caption := 'mrOK'; end; procedure TForm1.Button2Click(Sender: TObject); var wValue: Word; begin Label2.Caption := 'mbYesNoCancel'; wValue := MessageDlg('Error', mtError, mbYesNoCancel, 0); case wValue of mrYes: Label1.Caption := 'mrYes'; mrNo: Label1.Caption := 'mrNo'; mrCancel: Label1.Caption := 'mrCancel'; end; Button2.Caption := 'mtError'; end; procedure TForm1.Button3Click(Sender: TObject); begin Label2.Caption := 'mbYesNoAllCancel'; case MessageDlg('Information', mtInformation, mbYesAllNoAllCancel, 0) of mrYes: Label1.Caption := 'mrYes'; mrYesToAll: Label1.Caption := 'mrYesToAll'; mrNo: Label1.Caption := 'mrNo'; mrNoToAll: Label1.Caption := 'mrNoToAll'; mrCancel: Label1.Caption := 'mrCancel'; end; Button3.Caption := 'Information'; end; procedure TForm1.Button4Click(Sender: TObject); begin Label2.Caption := 'mbAbortRetryIgnore'; case MessageDlg('Confirmation', mtConfirmation, mbAbortRetryIgnore, 0) of mrAbort: Label1.Caption := 'mrAbort'; mrRetry: Label1.Caption := 'mrRetry'; mrIgnore: Label1.Caption := 'mrIgnore'; end; Button4.Caption := 'Confirmation'; end; procedure TForm1.Button5Click(Sender: TObject); begin Label2.Caption := 'mbAbortIgnore'; case MessageDlg('Custom', mtCustom, mbAbortIgnore, 0) of mrAbort: Label1.Caption := 'mrAbort'; mrIgnore: Label1.Caption := 'mrIgnore'; end; Button5.Caption := 'Custom'; end; end.
相关文章推荐
- Delphi中的MessageDlg用法默认分类
- MessageBox 和 messagedlg用法
- Delphi中Messagedlg用法
- Delphi中MessageDlg用法
- Delphi中Messagedlg用法
- Delphi中Messagedlg用法
- 输出语句showmessage,messageDlg的用法
- Delphi中Messagedlg的用法与汉化
- Delphi中Messagedlg用法
- Delphi中Messagedlg用法
- Delphi messagedlg 用法
- Delphi中Messagedlg用法
- Delphi中Messagedlg用法
- Delphi messagedlg 用法
- MessageBox 和 messagedlg用法
- 折叠伞+数码相机的用法
- Oracle回滚段的概念,用法和规划及问题的解决
- C++学习笔记(一)--基础知识sizeof用法
- glTexCoord2f的用法
- silverlight中ItemsSource和DataContext的用法注意