标签： 编程

[代码]窗体关闭时提示变动的保存

• Delphi • 暂无评论 • •2,210 次查阅

如果窗体有数据操作，在未保存时关闭窗体，进行一个提示。 procedure TFrmSave.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //窗体关闭时提示变动的保存 begin if ADODataSet1.State in [dsInsert, dsEdit] then begin if MessageBox(0, '发现未保存的数据，需要保存吗？', '', MB_YESNO + M

[代码]清除容器内的组件内容

• Delphi • 暂无评论 • •1,868 次查阅

最近翻阅了以前delphi7时代的部分书籍和源码，发现有些东西和源码还是值得借鉴的，特摘录下来，备用。 procedure TFrmSave.ClearItem; //清除容器内的组件内容,容器按自己需要改变 var i: Integer; begin for i := 0 to GBxList.ControlCount – 1 do //选择容器 GBxList begin if GBxList.Controls[i] is TEdit then TEdit(GBxList.Controls[