| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 405 人关注过本帖
标题:加载表单问题
只看楼主 加入收藏
wyd531
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2007-10-27
收藏
 问题点数:0 回复次数:0 
加载表单问题

问题是:
程序有个主表单,通过主表单掉用其它的表单,
子表单,里是个DBGRID,DBGRID的大小是有表单的大小定的,

procedure Tld_table.FormCreate(Sender: TObject);
begin
//设置表的大小
DBGrid1.Width:=ld_table.Width-10;
DBGrid1.Height:=ld_table.Height-120
end;

procedure Tld_table.FormPaint(Sender: TObject);
begin
//设置表的大小
DBGrid1.Width:=ld_table.Width-10;
DBGrid1.Height:=ld_table.Height-120


现在是用主表单中的一个按钮掉用子表单的

procedure Tzygl.Button8Click(Sender: TObject);
var
ld_table:Tld_table;
begin
ld_table:=Tld_table.create(self);
ld_table.showmodal;
end;
但运行时就在
procedure Tld_table.FormCreate(Sender: TObject);
procedure Tld_table.FormPaint(Sender: TObject);
这两个地方报错,不知道这是什么原因。
本人刚学DELPHI,有好多问题不明白,
希望有高手帮帮小弟。。
感谢了!!!!

搜索更多相关主题的帖子: 加载 表单 
2007-11-07 14:10
快速回复:加载表单问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021546 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved