五 ActiveForm调用其它窗体

ActiveForm调用其它窗体和普通delphi差不多，只是窗体都必须手工创建，不能自动创建，点击菜单 File->New->Form 创建一个窗体，在ActiveForm窗体单元中引用新建的单元文件．

uses Unit1;

在ActiveForm上增加一个Button,双击Button，填入代码：

procedure TAFHello.Button1Click(Sender: TObject);
begin
  form1:=Tform1.Create(Application);
  form1.ShowModal;
end;

编译好后，从浏览器加载html文件，看看效果

转载于:https://www.cnblogs.com/zhusd/archive/2010/05/16/1736595.html