1)在一个编辑框,输入内容后,弹出form2,内有数条记录供参考。
2)当选择后关闭form2.
3)后又觉得刚选择的不对,于是在该编辑框中,欲再弹出form2。
代码如下:
if not Assigned(form2) then
begin
form2:=Tform2.create(self);
form2.showmodal;
end else
???? //这里该怎么写好呢// form2 的关闭代码如下:
Close;此事困扰我两天了,麻烦大家帮我出出主意。谢谢!
2)当选择后关闭form2.
3)后又觉得刚选择的不对,于是在该编辑框中,欲再弹出form2。
代码如下:
if not Assigned(form2) then
begin
form2:=Tform2.create(self);
form2.showmodal;
end else
???? //这里该怎么写好呢// form2 的关闭代码如下:
Close;此事困扰我两天了,麻烦大家帮我出出主意。谢谢!
解决方案 »
- delphi dbgrid保存位置同宽度
- 请问像金山arp防火墙那样的Tab控件有没?不好意思没分了!
- 在DBGridEH中,怎样让他增加或修改数据后不直接保存.而是弹出窗口提示用户保存.
- 【200分】查了N多资料,问了N多人实在解决不了了!!!
- 关于treeview
- ClientDataSet里字段值修改问题
- 怎么样设置当前目录?
- 请问哪里有控件能够实现在98、WIN2K下的XP效果,包括FORMS!
- 动态创建的按钮,如何编写它的事件程序。如onclick,特急,谢谢!!!
- Delphi系统问题请教!!!
- combobox怎么在输入时候自动弹出下拉框
- DelphiXE2在64位编译平台下,ActivexForm无法使用问题!
if not Assigned(form2) then
form2:=Tform2.create(self);
form2.showmodal;
这样就可以了,老大!
只要不是free,窗口原来数据还是保持着关闭前的(用到数据源,数据源也没变的情况下)
1)form2,Close 事件:
Action:=caFree;
form2:=nil;2)form1中EDIT ONKEYDOWN事件如下:
...
if not assigned(form2) then
begin
form2:=Tform2.create(self);
form2.showmodal;
end;