函数或者过程使用不同窗体的控件问题？

Question

现在做一个软件，把其中的一些常用的算法做成一个单独的单元文件，如果仅仅是对数据操作还好，但有时候要对不同窗体的控件值进行操作，请问如何才能做到。（函数、过程和调用函数、过程的方法）

Answer 1

是啊，就像下面这个，把一个Treeview加上复选框：
procedure TreeviewAddCheckBox(TV:Ttreeview);
begin
  SetWindowLong(TV.Handle, GWL_STYLE, GetWindowLong(TV.Handle, GWL_STYLE) or TVS_CHECKBOXES);
end;

Answer 2

范例如下：
unit common
 
interfaceuses
  classes, SysUtils, Forms;type
  procedure SetFormCaption(Form: TForm; Caption: string);implementationprocedure SetFormCaption(Form: TForm; Caption: string);
begin
  Form.Caption := Caption;
end;