怎样把窗体或者窗体的控件作为参数传递？

Question

在另一个Unit中的函数要使用窗体或者窗体的控件，该用什么类型的参数呢？

Answer 1

引用那个窗体单元即可
uses
  {窗体单元};
以后即可访问窗体和窗体的控件了

Answer 2

先引用单元
在函数定义时：
procedure BBB(Btn:TButton);
begin
.
.
end;
使用时：
BBB(Button1);
其他控件换一下TButton就行了。

Answer 3

在另一个Unit中的函数要使用窗体或者窗体的控件，该用什么类型的参数呢？
什么类型的窗体和控件就用什么类型的参数

Answer 4

procedure ChangeEdit(edit:tedit;s:string);
begin
edit.text:=s;
end;调用的时候如果操作edit1，使其文本成为“hello”：
ChangeEdit(edit1,'hello');

Answer 5

类引用Function（MyObject ：TObject）:Integer;