如何关掉那个隐藏的窗体,不能循环调用unit(23分)

  • 主题发起人 主题发起人 shimingxing
  • 开始时间 开始时间
S

shimingxing

Unregistered / Unconfirmed
GUEST, unregistred user!
我想问大家一个问题啊,我的adoconnection1连上数据库了,并打开了tableform。代码如下:
。。。。。。。。
if adoconnection1.connected then
begin
connectform.hide;
tableform.show;
end
可是当我在tableform上设置一按钮,button1用于关闭窗体,代码为 close;
可是这只能关掉tableform
连接的那个窗体隐藏起来关不掉,又不能循环调用connectform的unit,怎样让它关掉呢,即断开连接。
献出全部分数。谢谢
 
Tconnectform.FormClose(Sender: TObject; Action:TCloseAction);
begin
adoconnection1.Connected:= false;
Action:= caFree;
end;
 
改成这样试试:

if adoconnection1.connected then
begin
connectform.hide;
tableform.showModal();
Close;
end
 
jenhon,谢谢你,你的方法我搞定了!呵呵
 
后退
顶部