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

Posted 剑仙十号

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了在Delphi的窗口单元中,如何调用其它窗口的单元。相关的知识,希望对你有一定的参考价值。

在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()这样的形式.
.
在这个单元中,我们可以把一些公用函数,类等东西放进去,实现程序的模块化.便于程序结构明晰.也便于程序维护。

以上是关于在Delphi的窗口单元中,如何调用其它窗口的单元。的主要内容,如果未能解决你的问题,请参考以下文章

delphi如何固定from1窗口大小?

深入delphi编程理解之消息无窗口单元消息的创建接受及dispatch模式编程

delphi中如何编程获取其它程序窗口的大小?

Delphi中点击DBGrid中某一单元格时,后面出现个按钮可以点进去,出现一个新窗体,进行选择。

Delphi 如何在子窗口使用父窗口声明的变量和控件

delphi窗体的问题