【delphi开源代码栏目提醒】：网学会员,鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“LeftBar.pas”一文，供大家参考学习!

    unit LeftBar;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, IWControl, IWHTMLControls, IWInit, IWAppForm;
    
    type
      TLftBar = class(TFrame)
        IWLink2: TIWLink;
        IWLink1: TIWLink;
        procedure IWLink1Click(Sender: TObject);
        procedure IWLink2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    implementation
    
    uses IWUnit1, IWUnit2;
    
    {$R *.dfm}
    
    procedure TLftBar.IWLink1Click(Sender: TObject);
    begin
      TIWAppForm(RWebApplication.ActiveForm).Release;
      TformSplash.Create(RWebApplication).Show;
    end;
    
    procedure TLftBar.IWLink2Click(Sender: TObject);
    begin
      TIWAppForm(RWebApplication.ActiveForm).Release;
      TformMain.Create(RWebApplication).Show;
    end;
    
    end.