DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: namnvh
今日帖子: 0
在线用户: 2
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 lzgvcd (111) ★☆☆☆☆ -
盒子活跃会员
2004/3/4 10:54:36
标题:
大家来看这段程序 浏览:937
加入我的收藏
楼主: procedure Tmapmodify.TBtnLayerManageClick(Sender: TObject);
var
  layercon:tlayercon;
begin
    if LayerCon = Nil then
      layercon:=TLayerCon.Create( LayerCon);
    LayerCon.ShowModal;
    FreeAndNil(layercon);
  
end;
这个窗体怎么回师,到这里就听了,我是把以前做好的窗体直接加近来的,在其他程序中是好的,但是在这里老是bug,不知道什么原因
----------------------------------------------
2222
作者:
男 shanghl2002 (阿尚) ★☆☆☆☆ -
盒子活跃会员
2004/3/4 11:21:09
1楼:
 var
  layercon:tlayercon;
移到过程外,成为单元全局变量.

----------------------------------------------
-
作者:
男 Another (Another) ★☆☆☆☆ -
盒子活跃会员
2004/3/4 11:23:11
2楼: 你的
Create 
参数使用错了,
直接
  if Not(Assigned(LayerCon)) then
  Layercon := TLayerCon.Create(nil) ; //这样再试试
--
-
--

----------------------------------------------
按此在新窗口浏览图片
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行60.54688毫秒 RSS