在Delphi的窗口单元中，如何调用其它窗口的单元。

http://www.cnblogs.com/champion8/p/5569930.html

在Delphi的窗口单元中，如何调用其它窗口的单元。(转载) 
. 
在Delphi中简单的调用单元 
unit实例  
一,新建一个工程文件,默认的文件是unit1,代码如下:unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
   Dialogs, StdCtrls; 

type 
   TForm1 = class(TForm) 
     Button1: TButton; 
     Edit1: TEdit; 
    procedure Button1Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
   Form1: TForm1; 

implementation 

uses Unit2; 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
var 
   nTemp:integer; 
begin 
   nTemp:=add(3,4); 
  //也可以这样nTemp:=unit2.add(3,4); 

   edit1.Text:=inttostr(nTemp); 
end; 

end. 

  

2,新建一个unit,默认名称是unit2,代码如下: 

unit Unit2; 

interface 
  uses windows,messages, SysUtils, Variants, Classes; 
  function add(a,b:integer):integer; 

implementation 

function add(a,b:integer):integer; 
begin 
   result:=a+b; 
end; 

end. 

  

从这里我们可以看到,单元的引用是非常简单的. 
我们的unit2只是一个代码单元,没有窗体.在interface节中我们相当于声明了单元的对外可见部分,在implementation中,定义了实现部分. 
在unit1当中,我们引用unit2后,直接可以调用add函数了,当然,也可以在前面加上unit2.add()这样的形式. 
. 
在这个单元中,我们可以把一些公用函数,类等东西放进去,实现程序的模块化.便于程序结构明晰.也便于程序维护。