【delphi开源代码栏目提醒】：以下是网学会员为您推荐的delphi开源代码-IWUnit2.pas，希望本篇文章对您学习有所帮助。

    unit IWUnit2;
    {PUBDIST}
    
    interface
    
    uses
      IWAppForm, IWApplication, IWTypes, Classes, Controls, IWControl,
      IWCompLabel, IWLayoutMgr, IWTemplateProcessorHTML, IWCompButton,
      IWCompEdit, SysUtils, Forms, LeftBar, IWCompMenu, Menus, IWTreeview;
    
    type
      TformMain = class(TIWAppForm)
        IWLabel1: TIWLabel;
        IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
        editName: TIWEdit;
        btnOk: TIWButton;
        lablHello: TIWLabel;
        LftBar1: TLftBar;
        IWMenu1: TIWMenu;
        MainMenu1: TMainMenu;
        Visit1: TMenuItem;
        SplashForm1: TMenuItem;
        MainForm1: TMenuItem;
        N1: TMenuItem;
        Exit1: TMenuItem;
        Help1: TMenuItem;
        About1: TMenuItem;
        IWTreeView1: TIWTreeView;
        procedure btnOkClick(Sender: TObject);
        procedure SplashForm1Click(Sender: TObject);
        procedure MainForm1Click(Sender: TObject);
        procedure About1Click(Sender: TObject);
        procedure Exit1Click(Sender: TObject);
        procedure IWTreeView1IWRootItemIWItem1Click(Sender: TObject);
        procedure IWTreeView1IWRootItemIWItem2Click(Sender: TObject);
      public
      end;
    
    implementation
    {$R *.dfm}
    
    uses
      ServerController, IWUnit1;
    
    procedure TformMain.btnOkClick(Sender: TObject);
    var
      FLastName : String;
    begin
      if Length(editName.Text) = 0 then begin
        lablHello.Visible := False;
        WebApplication.ShowMessage('You did not enter your name!');
      end else begin
        lablHello.Visible := True;
        FLastName := Trim(editName.Text);
        lablHello.Caption := 'Hello ' + FLastName + '.';
        editName.Text := '';
      end;
    end;
    
    procedure TformMain.SplashForm1Click(Sender: TObject);
    begin
      TIWAppForm(WebApplication.ActiveForm).Release;
      TformSplash.Create(WebApplication).Show;
    end;
    
    procedure TformMain.MainForm1Click(Sender: TObject);
    begin
      TIWAppForm(WebApplication.ActiveForm).Release;
      TformMain.Create(WebApplication).Show;
    end;
    
    procedure TformMain.About1Click(Sender: TObject);
    begin
      WebApplication.ShowMessage('Created By Me!');
    end;
    
    procedure TformMain.Exit1Click(Sender: TObject);
    begin
      WebApplication.Terminate('Your session is terminated');
    end;
    
    procedure TformMain.IWTreeView1IWRootItemIWItem1Click(Sender: TObject);
    begin
      TIWAppForm(WebApplication.ActiveForm).Release;
      TformSplash.Create(WebApplication).Show;
    end;
    
    procedure TformMain.IWTreeView1IWRootItemIWItem2Click(Sender: TObject);
    begin
      TIWAppForm(WebApplication.ActiveForm).Release;
      TformMain.Create(WebApplication).Show;
    end;
    
    end.