delphi 不同界面之间的控件相互访问
delphi中主界面要用到子界面的Edit控件上的数据!如何传递呢?
子界面中我写了一个过程
procedure TForm2.S(s:string);
begin
s := Trim(Edit1.Text);
end;
主界面中我写了一个按钮
procedure TForm1.Button1Click(Sender: TObject);
var
st:string;
begin
Form2.S(st);
ShowMessage(st);
end;
这样为什么不行呢?
答案:两个问题:
1、如编译不通过,则说明Form1所在单元还没有引用Form2所在单元,需要在uses部分加上Form2所在单元;
2、TForm2.S不是一个函数,而是一个过程,试图返回Edit1.Text,所以参数应该是var s:string
其他:没有 多页控制组件 可以用 SSTab控件 TABCTL32.OCX 或Microsoft Tabbed Dialog Control 6.0 procedure TForm2.S(s:string);
begin
s := Trim(Edit1.Text);
end;
写成这样
procedure TForm2.S(s:string);
begin
Edit1.Text := Trim(s);
end; form1要use form2
然后才可以的
上一个:这段delphi代码帮忙详解一下
下一个:delphi 文件夹 使用问题