我在主窗体中打开一个外部文件,需要把这个文件名传递给子窗体,请问怎么做?
解决方案 »
- 女友淘宝开店 http://shop33546080.taobao.com 主营新生活化妆品 欢迎大家支持
- ******长春程序员们,进来坐会!*******
- 如何读USB硬盘的序列号?
- 如何从ImageList中读取图片
- 小问题求救,我是太菜了吗?
- 请问有谁知道如何向richedit控件里插入图片啊,急
- 请教高手:delphi在连接oracle数据库时的问题
- delphi的数据源是怎么配制的?建好了主窗体却无法实现与数据库的连接?(新手)急急!
- KAMI(烤麦)来领分吧。66分
- 我想使用TRegistry类,请问在uses 需要增加什么?
- 哪一个函数可以启动控制面板,拨号网络,注册表?
- ehom(?!)兄和对浏览器编程熟悉的朋友们进来!
unitchild ;implementation
uses uintmain ;
然后只要form1.**(变量名)就可以了
电脑会自动提示uses form1
FFileName:string;procedure TMainForm.OpenNClick(Sender: TObject);
var
Title:String;
begin
Title:='数据表'+IntToStr(MDIChildCount+1);
CreateChild(Title);
if OpenDialog1.Execute then
begin
FFileName:=OpenDialog1.FileName;
end;
end;ChildUnit部分代码:uses MainUnit;procedure TChildForm.FormCreate(Sender: TObject);
begin
Table1.TableName:=FFileName;
Table1.Active:=true;
end;在MainForm中点“打开”菜单时,先会新建一个子窗体,然后通过打开文件的对话框选择一个文件并把这个文件名赋给FFileName,在ChildForm创建时把MainUnit中的变量FFileName的值赋给ChildUnit中的Table1的TableName属性,上面的程序在执行到Table1.Active:=true;时就会出现“Table1的TableName属性没有值”的错误。