知识大全物料主文件维护功能的实现[8]

Posted 2022-07-21 主文

篇首语：身不饥寒，天未曾负我；学无所获，我何以对天。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全物料主文件维护功能的实现[8]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>

dbbobox Visible:=false; dbbobox Visible:=true; //将插入删除修改和移动按钮打开 bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=false; bitbtn Enabled:=false; end; //不允许修改文本框中的内容 dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; // 关闭窗体 procedure Tmaterials BitBtn Click(Sender: TObject); begin close; end;

小知识 MDI程序中子窗体关闭方式的设置方法

在Delphi中 MDI子窗口的关闭方式默认为缩小而不是关闭故当您单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化而不是如您所预期的那样被关闭解决办法是在子窗口的OnClose事件处理过程中加入如下代码 procedure ChildForm OnClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end;

Delphi为一个窗体的关闭行为指定了种方式分别是 caNone 禁止子窗体被关闭 caHide 子窗体不被关闭但是被隐藏被隐藏的窗体仍然可以被程序访问 caFree 子窗体被关闭并且释放其占用的资源 caMinimize 子窗体被最小化而不是被关闭这是MDI子窗口的默认关闭行为

至此我们完成了物料主文件维护的功能其效果如图所示

cha138/Article/program/Delphi/201311/24985

知识大全 物料主文件维护功能的实现[8]

知识大全物料主文件维护功能的实现[8]