base.pas

《Kylix程序设计》一书中附带的例程源代码

unit Base;

interface

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls, QMenus, QTypes, QExtCtrls;

type
  TFrmPolymorphic = class(TForm)
    MainMenu: TMainMenu;
    DlgOpen: TOpenDialog;
    MnuFile: TMenuItem;
    MnuItmFileOpen: TMenuItem;
    MnuItmFileClose: TMenuItem;
    N1: TMenuItem;
    MnuItmFileExit: TMenuItem;
    BtnOpen: TButton;
    BtnClose: TButton;
    PnlContainer: TPanel;
    procedure BtnOpenClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure MnuItmFileCloseClick(Sender: TObject);
    procedure MnuItmFileExitClick(Sender: TObject);
    procedure MnuItmFileOpenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OpenFile(); virtual; abstract;
  end;
{
var
  FrmPolymorphic: TFrmPolymorphic;
}
implementation

{$R *.xfm}

procedure TFrmPolymorphic.BtnOpenClick(Sender: TObject);
begin
  OpenFile();
end;

procedure TFrmPolymorphic.BtnCloseClick(Sender: TObject);
begin
  Close();
end;

procedure TFrmPolymorphic.MnuItmFileCloseClick(Sender: TObject);
begin
  Close();
end;

procedure TFrmPolymorphic.MnuItmFileExitClick(Sender: TObject);
begin
  Application.Terminate();
end;

procedure TFrmPolymorphic.MnuItmFileOpenClick(Sender: TObject);
begin
  OpenFile();
end;

end.