DELPHI 中 mrok的作用

if Form1.showmodal = mrok then 这句话什么意思?

首先,所有的命令按钮(不论是Button还是BitBtn)都有一个属性:ModalResult,该属性可以设置为mrOk、mrCancel…等等,默认值是mrNone(ModalResult是一个整型值,只要你在用ShowModal以后,窗口中只要给它付一个非零的值,窗口会自动关闭,而mrOK的值是2)。

平时,ModalResult属性没什么用处,但如果命令按钮放置到用showmodal显示(模态显示,一般用于显示对话框)的窗体上时,就大大的有用了。

作用体现在:

1、当设置命令按钮的ModalResult属性为mrOk、mrCancel…等时,程序运行后,单击该按钮,按钮所在的窗体会自动关闭,不用在OnClick事件中添加诸如Close;语句。

2、当设置命令按钮的ModalResult属性为mrOk、mrCancel…等时,程序运行后,单击该按钮,按钮所在的窗体会自动关闭,同时将按钮的ModalResult属性值赋值给窗体的ModalResult属性(注意:任何窗体都有这个属性!)

3、自动关闭上述窗体时,窗体的ModalResult属性又会自动传递给showmodal方法,作为该方法的返回值。 所以说,showmodal方法的返回值总是与命令按钮的ModalResult属性相同。

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是一个使用Delphi的示例代码,用于更新数据库的数据: unit UpdateForm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DB, ADODB; type TfrmUpdate = class(TForm) lblTitle: TLabel; pnlContent: TPanel; lblName: TLabel; edtName: TEdit; lblAge: TLabel; edtAge: TEdit; btnSave: TButton; btnCancel: TButton; lblID: TLabel; edtID: TEdit; qUpdate: TADOQuery; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure btnCancelClick(Sender: TObject); procedure btnSaveClick(Sender: TObject); private { Private declarations } FConnection: TADOConnection; public { Public declarations } constructor Create(AOwner: TComponent; Connection: TADOConnection; ID: Integer; Name: string; Age: Integer); reintroduce; end; var frmUpdate: TfrmUpdate; implementation {$R *.dfm} constructor TfrmUpdate.Create(AOwner: TComponent; Connection: TADOConnection; ID: Integer; Name: string; Age: Integer); begin inherited Create(AOwner); FConnection := Connection; edtID.Text := IntToStr(ID); edtName.Text := Name; edtAge.Text := IntToStr(Age); end; procedure TfrmUpdate.btnCancelClick(Sender: TObject); begin Close; end; procedure TfrmUpdate.btnSaveClick(Sender: TObject); begin qUpdate := TADOQuery.Create(nil); try qUpdate.Connection := FConnection; qUpdate.SQL.Text := 'UPDATE tblPerson SET Name=:Name, Age=:Age WHERE ID=:ID'; qUpdate.Parameters.ParamByName('Name').Value := edtName.Text; qUpdate.Parameters.ParamByName('Age').Value := StrToIntDef(edtAge.Text, 0); qUpdate.Parameters.ParamByName('ID').Value := StrToIntDef(edtID.Text, 0); qUpdate.ExecSQL; ModalResult := mrOK; finally qUpdate.Free; end; end; procedure TfrmUpdate.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; end. 在这个示例,我们使用了一个ADOQuery组件来更新数据库的数据。该组件使用连接对象FConnection连接到数据库,然后执行SQL语句来更新tblPerson表的数据。我们在构造函数传递了连接对象、ID、名称和年龄参数。在保存按钮的单击事件,我们将这些值与SQL语句的参数进行匹配,并使用ExecSQL方法来执行更新。如果更新成功,则设置ModalResult为mrOK,以便在主窗体处理更新结果。最后,我们使用FormClose事件来释放窗体的资源。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值