请问各位： 1。我在Unit2中定义了过程 procedure ClearDisabled; procedure TArtNet.ClearDisabled; var i:integer; begin for i:=0 to M-1 do Disabled[i]:=False; end; Unit1已经Uses Unit2了，在unit1中我该怎样调用 ClearDisabled呢？ 2。在Unit1的Form1中有位图BMP，在Unit2中想计算BMP的高和宽，并读出这位图的一些属性，该怎么样实现呢？

小丫123您好：

问题1：
 在Unit2中定义了过程
  public
    { Public declarations }
    procedure ClearDisabled;        procedure TArtNet.ClearDisabled;
      var
        i:integer;
      begin
        for i:=0 to M-1 do
        Disabled[i]:=False;
      end;
 在unit1中使用：
  procedure TForm1.Button1Click(Sender: TObject);
    begin
      ArtNet.ClearDisabled;
    end;
=====================================================================
问题2：
  调用另一个form中的组件的属性或某些变量，您可以定义成公共变量，或写成函数，如上面调用，也可以
 uses unit1; 
 procedure TForm2.Button1Click(Sender: TObject);
    begin
      showmessage(form1.Edit1.Text);//在form2中调用form1中的edit1
    end;
抛砖引玉，供参考看看
也可参考以下讲解：
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=53451

——行径窄处，留一步与人行—— 發表人 -

deity多谢你回答我的问题，还有个问题向你请教，就是我要调用Unit1调Unit2过程前，必须在Unit1中Uses Unit2吧，那同时我Uint2又调用Unit1中的一位图，是不是得在Unit2中Uses Unit1,这样做会出错吗？调用位图就直接写Form1.Bmp就可以了吗？

引言: deity多谢你回答我的问题，还有个问题向你请教， 一、就是我要调用Unit1调Unit2过程前，必须在Unit1中Uses Unit2吧，那同时我Uint2又调用Unit1中的一位图，是不是得在Unit2中Uses Unit1,这样做会出错吗？ 二、调用位图就直接写Form1.Bmp就可以了吗？

小丫123：第一個問題是的，妳自己有用程式試過嗎？ 第二個問題妳的Form1.Bmp是否屬於public 請參考！ Andy Chang

小丫123您好：   两个unit互相调用是没问题的，您可以如andychang1690大大所说，自己实践下至于可不可以写 > ——行径窄处，留一步与人行——