1、创建一个将要被调用的窗体
unit FormTest;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TfrmTest = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmTest: TfrmTest;
implementation
{$R *.dfm}
end.unit FormTest;
interf