unit_help.~pas

来自「这是一个用Delphi开发的MP3播放器的源码」· ~PAS 代码 · 共 64 行

unit Unit_Help;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ImgList, Menus, ComCtrls, ExtCtrls, Buttons, ToolWin;

type
  TFrm_Help = class(TForm)
    Splitter1: TSplitter;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton2: TToolButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    ToolButton3: TToolButton;
    Sp_Exit: TSpeedButton;
    StatusBar_Main: TStatusBar;
    Panel1: TPanel;
    StatusBar2: TStatusBar;
    TreeView1: TTreeView;
    Panel2: TPanel;
    StatusBar3: TStatusBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    H1: TMenuItem;
    ImageList1: TImageList;
    Memo1: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Sp_ExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Help: TFrm_Help;

implementation

{$R *.dfm}

procedure TFrm_Help.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Action:=CaFree;
end;

procedure TFrm_Help.Sp_ExitClick(Sender: TObject);
begin
     Frm_Help.Close;
end;

end.