main.pas

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

unit Main;

interface

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls, Base;

type
  TFrmMain = class(TForm)
    BtnLoadTextViewer: TButton;
    BtnLoadImageViewer: TButton;
    procedure FormCreate(Sender: TObject);
    procedure BtnLoadTextViewerClick(Sender: TObject);
    procedure BtnLoadImageViewerClick(Sender: TObject);
  private
    { Private declarations }
    FForms: array [ 1.. 2 ] of TFrmPolymorphic;
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

uses Text, Image;

{$R *.xfm}

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  FForms[ 1 ] := TFrmTextViewer.Create( Application );
  FForms[ 1 ].Show();
  FForms[ 2 ] := TFrmImageViewer.Create( Application );
  FForms[ 2 ].Show();
end;

procedure TFrmMain.BtnLoadTextViewerClick(Sender: TObject);
begin
  FForms[ 1 ].OpenFile();
end;

procedure TFrmMain.BtnLoadImageViewerClick(Sender: TObject);
begin
  FForms[ 2 ].OpenFile();
end;

end.