unit OnPanelUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Panel1: TPanel;
    Panel0: TPanel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses Unit1;

{$R *.DFM}

//=============================================================================
//  [表示]ボタン押下時の処理
//  印刷プレビューフォームplPrevForm1を表示する
//=============================================================================
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  plPrevForm1.Show;
end;

//=============================================================================
//  [終了]ボタン押下時の処理
//=============================================================================
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

//=============================================================================
//  マウスホイールは親のイベントを使用する
//=============================================================================
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  SB: TScrollingWinControl;
begin
  if plPrevForm1 = nil then exit;

  SB := plPrevForm1.ScrollBox1;
  if FindVCLWindow(MousePos) = SB then begin
    Handled := True;
    SB.VertScrollBar.Position := SB.VertScrollBar.Position - WheelDelta div 5;
  end;
end;

end.

unit Unit1;

interface

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

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

var
  plPrevForm1: TplPrevForm1;

implementation

uses OnPanelUnit;

{$R *.DFM}

//=============================================================================
//  このフォームを表示するコントロールを指定
//  OnCreateはTplPrevにないのでFormのOnCreateに記述
//=============================================================================
procedure TplPrevForm1.FormCreate(Sender: TObject);
begin
  inherited;
  plPrev1.FormParent := Form1.Panel1;
end;

//=============================================================================
//  描画コード部分
//  TplPrevのOnFormShowなのでinheritedは不要
//=============================================================================
procedure TplPrevForm1.plPrev1FormShow(Sender: TObject);
begin
  plPrev1.BeginDoc;
  plPrev1.EndDoc;
end;

end.