扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:NoteXPad 来源:天极论坛 2007年10月31日
关键字:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btnRegister: TButton; btnCancel: TButton; procedure btnCancelClick(Sender: TObject); private procedure btnRegisterClick(Sender: TObject); procedure WMCommand(var Message: TWMCommand); message WM_COMMAND; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnCancelClick(Sender: TObject); begin Close; end; procedure TForm1.btnRegisterClick(Sender: TObject); begin ShowMessage('Thx for ur registration.'); end; procedure TForm1.WMCommand(var Message: TWMCommand); begin if Message.NotifyCode = BN_CLICKED then if FindControl(Message.Ctl) = btnRegister then begin btnRegisterClick(Self); Exit; end; inherited; end; end. |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。