5,388
社区成员
发帖
与我相关
我的任务
分享activeform开发控件时，为何不能调用另一个窗体的函数？？
activeform开发控件时，为何不能调用另一个窗体的函数？？
代码：
//activeform自动创建的窗体！
procedure TM_Angel.Single_Position(Ambulet_Code: Integer; X, Y: Double);
begin
fm_change.Tracker_SingleAmbulet(Ambulet_Code,X,Y);//车辆跟踪
end;
//调用的另一个窗体中的函数！
function Tfm_change.Tracker_SingleAmbulet(Ambulet_Code:integer;X,Y:double):integer;
begin
showmessage('ok'); //能够显示
showmessage(telpart.Text);//执行时出现错误！（telpart.text为文本框）
end;
说明：
代码：
//activeform自动创建的窗体！
procedure TM_Angel.Single_Position(Ambulet_Code: Integer; X, Y: Double);
begin
fm_change.Tracker_SingleAmbulet(Ambulet_Code,X,Y);//车辆跟踪
end;
//调用的另一个窗体中的函数！
function Tfm_change.Tracker_SingleAmbulet(Ambulet_Code:integer;X,Y:double):integer;
begin
showmessage('ok'); //能够显示
showmessage(telpart.Text);//执行时出现错误！（telpart.text为文本框）
end;
说明：
...全文
请发表友善的回复…
发表回复
APTECHLCH 2004-07-02
- 打赏
- 举报
showmessage(telpart.Text);
改成
showmessage(fm_change.telpart.Text);
呢？？？
改成
showmessage(fm_change.telpart.Text);
呢？？？
viaboy 2004-06-13
- 打赏
- 举报
agree to upstair.
hkbarton 2004-06-11
- 打赏
- 举报
既然showmessage('ok'); //能够显示
说明这个调用是可以的
showmessage(telpart.Text);//执行时出现错误！（telpart.text为文本框）
错误提示信息是什么呢？
说明这个调用是可以的
showmessage(telpart.Text);//执行时出现错误！（telpart.text为文本框）
错误提示信息是什么呢？
一横一竖 2004-06-11
- 打赏
- 举报
是不能调用的，在这种情况下，最好写一个unit来解决了。
8341 2004-04-14
- 打赏
- 举报
ding
