在Form1和form2的Uses下加各自的单元,但是要避免循环调用,不然编译器是报错的。
应该这样调用:
unit Unit1;
interface
uses
Unit2.pas;
......
--------------------------
unit Unit2;
interface
uses
......
var
Form2: TForm2;
implementation
Uses
Unit1.pas
......
时间: 2024-08-27 02:53:22