unit MainFormUnit;

interface

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

type
  TplPrevForm1 = class(TplPrevForm)
    plPrev1: TplPrev;
    procedure FormCreate(Sender: TObject);
    procedure plPrev1FormShow(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  plPrevForm1: TplPrevForm1;

implementation

{$R *.DFM}

//=============================================================================
//  TplPrevにはOnFormCreateイベントはないので注意
//  他のTplPrevの継承コンポーネントも同じ
//=============================================================================
procedure TplPrevForm1.FormCreate(Sender: TObject);
begin
  //継承フォームの場合，OnCreateではinheritedが必ず必要
  //このInheritedは継承元プレビューフォームのOnCreate
  //TplPrevのOnFormShowイベントなら不要
  inherited;
end;

//=============================================================================
//  TplPrevのOnFormShowイベント
//  このフォーム自身を表示するのでShowModalメソッドは不要
//=============================================================================
procedure TplPrevForm1.plPrev1FormShow(Sender: TObject);
begin
  //描画コード開始
  plPrev1.BeginDoc;
  try
    //描画コード
    plPrev1.FontSize(28);
    plPrev1.TextOut(200, 500, '継承フォームをメインフォームにするテスト');
  finally
    //描画コード終了
    plPrev1.EndDoc;
  end;
end;

end.