iwunit1.pas

来自「Delphi 应用举例」· PAS 代码 · 共 49 行

unit IWUnit1;
{PUBDIST}

interface

uses
  IWAppForm, IWApplication, IWTypes, Classes, Controls, IWControl,
  IWCompButton, IWCompLabel,unit1;

type
  TformMain = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
    subfrm:Tformmain1;
  end;

implementation
{$R *.dfm}

uses
  ServerController;

procedure TformMain.IWButton1Click(Sender: TObject);
begin
   subfrm.show;    //显示formmain1

   show;// 显示formmain

end;

procedure TformMain.IWButton2Click(Sender: TObject);
begin
   hide
end;

procedure TformMain.IWAppFormCreate(Sender: TObject);
begin
    subfrm:=Tformmain1.create(webapplication);
    subfrm.f:=self
end;

end.