|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>> dbcomboboxVisible:=false; dbcomboboxVisible:=true; //将插入删除修改和移动按钮打开 bitbtnEnabled:=true; bitbtnEnabled:=true; bitbtnEnabled:=true; bitbtnEnabled:=true; bitbtnEnabled:=true; bitbtnEnabled:=true; bitbtnEnabled:=true; bitbtnEnabled:=false; bitbtnEnabled:=false; end; //不允许修改文本框中的内容 dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; dbeditReadOnly:=true; //关闭窗体 procedure TmaterialsBitBtnClick(Sender: TObject); begin close; end; 小知识 MDI程序中子窗体关闭方式的设置方法 在Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭故当您单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化而不是如您所预期的那样被关闭解决办法是在子窗口的OnClose事件处理过程中加入如下代码 procedure ChildFormOnClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; Delphi为一个窗体的关闭行为指定了种方式分别是 caNone 禁止子窗体被关闭 caHide 子窗体不被关闭但是被隐藏被隐藏的窗体仍然可以被程序访问 caFree 子窗体被关闭并且释放其占用的资源 caMinimize 子窗体被最小化而不是被关闭这是MDI子窗口的默认关闭行为 至此我们完成了物料主文件维护的功能其效果如图所示 [] [] [] [] [] [] [] [] |
