O
okgxsh
Unregistered / Unconfirmed
GUEST, unregistred user!
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;
说明: