ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

PMAN 2010/06/09(ｿｽｿｽ) 15:28:48

ｿｽｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾄ新ｿｽｿｽｿｽﾉマｿｽEｿｽXｿｽzｿｽCｿｽ[ｿｽｿｽｿｽﾉ対会ｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽうｿｽﾆゑｿｽｿｽﾄゑｿｽﾌでゑｿｽｿｽｿｽｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽEｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
publishedｿｽﾉプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅはゑｿｽｿｽﾟなのでゑｿｽｿｽ蛯､ｿｽｿｽ?

type
  TPaintBoxB = class(TPaintBox)
  private
  protected
  public
    constructor Create(aOwner: TComponent); override;
    destructor Destroy; override;
  published
ｿｽ@ｿｽ@//ｿｽﾇ会ｿｽ
    property OnMouseWheel;
    property OnMouseWheelDown;
    property OnMouseWheelUp;
  end;

ｿｽｿｽLｿｽﾅオｿｽuｿｽWｿｽFｿｽNｿｽgｿｽCｿｽｿｽｿｽXｿｽyｿｽNｿｽ^ｿｽﾉはイｿｽxｿｽｿｽｿｽgｿｽﾍ追会ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾅゑｿｽｿｽｿｽｿｽzｿｽCｿｽ[ｿｽｿｽｿｽｿｽしてゑｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽNｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

take 2010/06/10(ｿｽｿｽ) 09:11:07

ｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽuOnMouseWheelｿｽvｿｽﾍ奇ｿｽ{ｿｽNｿｽｿｽｿｽXｿｽﾉ托ｿｽｿｽﾝゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽoｿｽﾄまゑｿｽｿｽｿｽｿｽﾇ？

ｿｽﾅ、ｿｽｿｽ閧ｽｿｽｿｽｿｽﾌはゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ？

interface

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

type
  TPaintBoxB = class(TPaintBox)
  private
  protected
  public
    procedure WMMousewheel(var Msg: TMessage); message WM_MOUSEWHEEL;
  published
   //ｿｽﾇ会ｿｽ
  end;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private ｿｽ骭ｾ }
    FPaintBox : TPaintBoxB;
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPaintBox := TPaintBoxB.Create(Self);
  FPaintBox.Parent := Self;
  FPaintBox.Align := alClient;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FPaintBox.Free;
end;

procedure TPaintBoxB.WMMousewheel(var Msg: TMessage);
begin
  if (Msg.WParam > 0) then
  begin
    { ｿｽzｿｽCｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ }
    ShowMessage('ｿｽzｿｽCｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽ');
  end
  else
  begin
    { ｿｽzｿｽCｿｽ[ｿｽｿｽｿｽｿｽｿｽOｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽ }
    ShowMessage('ｿｽzｿｽCｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽOｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽ');
  end;
end;

PMAN 2010/06/11(ｿｽｿｽ) 19:04:10

takeｿｽｿｽｿｽｿｽAｿｽ苣｢ｿｽbｿｽﾉなゑｿｽﾜゑｿｽｿｽB

>OnMouseWheelｿｽvｿｽﾍ奇ｿｽ{ｿｽNｿｽｿｽｿｽXｿｽﾉ托ｿｽｿｽﾝゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽoｿｽﾄまゑｿｽｿｽｿｽｿｽﾇ？
ｿｽｿｽｿｽｿｽｿｽｿｽﾅはコｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾈみに難ｿｽｿｽｿｽﾂ具ｿｽｿｽｿｽdel2010ｿｽｿｽWin7ｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽdel7ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽGｿｽｿｽｿｽ[ｿｽﾍでまゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
OnMouseWheelｿｽｿｽaintBox<-TGraphicControl<-TControl<-TComponentｿｽｿｽprotectedｿｽﾉ抵ｿｽ`ｿｽｿｽｿｽｿｽﾄまゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽpublishedｿｽﾉゑｿｽｿｽ驍ｾｿｽｿｽｿｽﾅは駄目なのでゑｿｽｿｽ蛯､ｿｽｿｽ?

ｿｽｿｽ閧ｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾍコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽﾅホｿｽCｿｽ[ｿｽｿｽｿｽﾌ会ｿｽ]ｿｽｿｽｿｽｿｽmｿｽｿｽｿｽﾄ図ｿｽ`ｿｽﾌ拡ｿｽｿｽAｿｽkｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB

ｿｽQｿｽlｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ_ｿｽｿｽｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽﾌ搾ｿｽｿｽｿｽﾆなゑｿｽｿｽﾄゑｿｽﾌゑｿｽｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾅ会ｿｽ]ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽAｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは奇ｿｽｿｽmｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
(ｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽﾌ搾ｿｽｿｽｿｽﾅは托ｿｽｿｽvｿｽﾅゑｿｽｿｽB)
ｿｽｿｽｿｽmｿｽｿｽｿｽｿｽﾍ囲はフｿｽHｿｽ[ｿｽｿｽｿｽﾌサｿｽCｿｽYｿｽﾉなゑｿｽｿｽﾄゑｿｽﾝゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽ竦ｳｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ?

Mr.XRAY 2010/06/12(ｿｽy) 12:48:07

ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ．

WM_MOUSEWHEELｿｽﾆゑｿｽｿｽCｿｽ}ｿｽEｿｽXｿｽzｿｽCｿｽ[ｿｽｿｽｿｽﾖ係ｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾍ，ｿｽﾟ具ｿｽｿｽﾌ記ｿｽｿｽ(ｿｽｿｽｿｽﾌ掲ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾅなゑｿｽ)
ｿｽｿｽｿｽいｿｽｿｽｿｽ閧ｪｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽﾍ，ｿｽｿｽｿｽﾌ環具ｿｽｿｽﾉゑｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽDｿｽ}ｿｽEｿｽXｿｽYｿｽtｿｽﾌドｿｽｿｽｿｽCｿｽoｿｽ[ｿｽﾌイｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽﾌ有ｿｽｿｽｿｽﾆゑｿｽｿｽD

ｿｽ}ｿｽEｿｽXｿｽzｿｽCｿｽ[ｿｽｿｽｿｽﾖ係ｿｽﾌ擾ｿｽｿｽｿｽｿｽﾍ，ｿｽｿｽｿｽﾌ場合ｿｽCｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾅはなゑｿｽｿｽC
ｿｽAｿｽvｿｽｿｽｿｽPｿｽ[ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽD

TApplicationｿｽｿｽOnMessageｿｽCｿｽxｿｽｿｽｿｽgｿｽnｿｽｿｽｿｽhｿｽｿｽｿｽｿｽ成
ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽﾅ搾ｿｽｿｽWｿｽlｿｽｿｽ謫ｾｿｽｿｽｿｽCｿｽｿｽｿｽﾌ搾ｿｽｿｽWｿｽlｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽ

TApplicationｿｽﾍ，Delphiｿｽﾌバｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾄは，ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽuｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽﾅマｿｽEｿｽXｿｽzｿｽCｿｽ[ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾉ」
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆにはなゑｿｽﾜゑｿｽｿｽが，ｿｽﾚ的ｿｽﾌ難ｿｽｿｽがｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆには始ｿｽﾜゑｿｽﾜゑｿｽｿｽｿｽﾌで．

Mr.XRAY 2010/06/12(ｿｽy) 12:55:29

ｿｽﾔ違えｿｽﾜゑｿｽｿｽｿｽｿｽD
TApplication  --->  TApplicationEvents
ｿｽﾅゑｿｽｿｽD

..ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ 2010/06/12(ｿｽy) 17:52:23

>ｿｽQｿｽlｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ_ｿｽｿｽｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽﾌ搾ｿｽｿｽｿｽﾆなゑｿｽｿｽﾄゑｿｽﾌゑｿｽｿｽAｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽﾅ会ｿｽ]ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽAｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅは奇ｿｽｿｽmｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

MouseWheelｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾍフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ暦ｿｽｿｽｿｽﾌで、
Panelｿｽﾌ擾ｿｽｿｽPaintBoxｿｽｿｽ謔ｹｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽ閧ｩｿｽｿｽB

PMAN 2010/06/13(ｿｽｿｽ) 15:41:50

Mr.XRAYｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾅ終ｿｽIｿｽﾉはアｿｽvｿｽｿｽｿｽｿｽｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽ驍ｵｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾈと思ｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽListBoxｿｽﾍスｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽzｿｽCｿｽｿｽｿｽﾌ会ｿｽ]ｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽ(ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾅの奇ｿｽｿｽmｿｽﾅはなゑｿｽｿｽﾅゑｿｽｿｽｿｽ)ｿｽﾌで、ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽﾚ植ｿｽｿｽｿｽﾄコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽﾌみでの費ｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽﾇゑｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾄ鯉ｿｽｿｽﾝ趣ｿｽｿｽsｿｽｿｽｿｽしｿｽﾄゑｿｽﾅ抵ｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽ`ｿｽｿｽｿｽﾄゑｿｽﾇゑｿｽｿｽﾅホｿｽCｿｽ[ｿｽｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾌゑｿｽｿｽ`ｿｽｿｽｿｽvｿｽｿｽｿｽJｿｽｿｽｿｽvｿｽｿｽｿｽﾅめゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

..ｿｽﾆゑｿｽｿｽｿｽｿｽ轤ｳｿｽｿｽﾌ鯉ｿｽwｿｽEｿｽﾅゑｿｽｿｽｿｽ

>MouseWheelｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾍフｿｽHｿｽ[ｿｽJｿｽXｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾉ暦ｿｽｿｽｿｽﾌで、

ｿｽｿｽｿｽｿｽmｿｽｿｽｿｽﾉ暦ｿｽｿｽﾄゑｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽmｿｽｿｽｿｽｿｽｿｽ`ｿｽﾍ囲の始ｿｽ_ｿｽｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ搾ｿｽｿｽｿｽﾅなゑｿｽｿｽfｿｽBｿｽXｿｽvｿｽｿｽｿｽCｿｽﾌ搾ｿｽｿｽｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄて悩ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謦｣ｿｽｿｽｿｽﾄみゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄまゑｿｽｿｽﾌで皆ｿｽｿｽｿｽｿｽﾌ意鯉ｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽYｿｽｿｽｿｽﾄゑｿｽHｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ 2010/06/15(ｿｽｿｽ) 17:44:25

ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽそｿｽｿｽ‾ｿｽJｿｽｿｽｿｽ閧ｪｿｽﾟゑｿｽｿｽｿｽｿｽｿｽAｿｽﾋゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽv
ｿｽｿｽｿｽｿｽFｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈ、ｿｽIｿｽｿｽｿｽﾌカｿｽｿｽｿｽﾅはゑｿｽｿｽﾔん来週ｿｽｿｽｿｽｿｽｿｽｿｽcｿｽAｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽﾉ会ｿｽｿｽｿｽｿｽﾌ修ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽが？ ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽｿｽｿｽAｿｽﾆ者ゑｿｽｿｽｿｽﾉ暦ｿｽｿｽだ包ｿｽｿｽｿｽｿｽCｿｽCｿｽじゑｿｽﾈゑｿｽｿｽHｿｽv
ｿｽｿｽｿｽｿｽFｿｽuｿｽﾈゑｿｽｿｽﾉ托ｿｽｿｽvｿｽｿｽｿｽｿｽAｿｽCｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽ驍ｩｿｽｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽzｿｽｿｽｿｽgｿｽﾉ？ ｿｽｿｽｿｽｿｽﾏゑｿｽSｿｽzｿｽｿｽｿｽﾈゑｿｽｿｽv
ｿｽTｿｽqｿｽFｿｽuｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾍ〜ｿｽAｿｽｿｽｿｽｿｽH ｿｽｿｽｿｽｿｽｿｽnｿｽﾜゑｿｽﾌ？ｿｽv
ｿｽｿｽｿｽｿｽFｿｽuｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽEｿｽRｿｽAｿｽｿｽｿｽOｿｽﾍ会ｿｽｿｽｿｽｿｽｿｽ^ｿｽCｿｽ‾ｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾈ、ｿｽ}ｿｽRｿｽgｿｽﾆ一緒ｿｽﾉ会ｿｽｿｽﾅゑｿｽｿｽﾌハｿｽVｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽv
ｿｽTｿｽqｿｽFｿｽuｿｽｿｽｿｽ`ｿｽH ｿｽ}ｿｽTｿｽｿｽｿｽｿｽｿｽがハｿｽVｿｽSｿｽﾅ会ｿｽｿｽｿｽｿｽﾉ登ｿｽｿｽﾌ？ ｿｽAｿｽ^ｿｽVｿｽﾌ擾ｿｽﾉは暦ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽH^^;ｿｽv

ｿｽy ｿｽpｿｽlｿｽｿｽｿｽﾌ擾ｿｽｿｽPaintBoxｿｽｿｽ謔ｹｿｽｿｽTPaintPanelｿｽRｿｽｿｽｿｽ| ｿｽz
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, ThemeMgr;

type
  TPaintPanel = class;
  TPaintBox = class(ExtCtrls.TPaintBox)
  private
   FPaintPanel: TPaintPanel;
   procedure WMLButtonDown(var Msg: TMessage); message WM_LBUTTONDOWN;
   procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;
  end;

  TPaintPanel = class(TPanel)
  private
   FPaintBox: TPaintBox;
   FOnMouseWheel: TMouseWheelEvent;
   procedure WMMouseWheel(var Msg: TWMMouseWheel); message WM_MOUSEWHEEL;
  public
   procedure SetParent(aParent: TWinControl); override;
  published
   property OnMouseWheel: TMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;
  end;

type
  TForm1 = class(TForm)
   Memo1: TMemo;
   ThemeManager1: TThemeManager;
   procedure FormCreate(Sender: TObject);
  private
   FSize: Integer;
   PaintPanel1: TPaintPanel;
   procedure PaintPanel1MouseWheel(Sender: TObject; Shift: TShiftState;
     WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TPaintPanel.SetParent(aParent: TWinControl);
begin
  inherited;
  if aParent = nil then exit;
  // PaintPanelｿｽﾌ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽPaintBoxｿｽｿｽ成
  FPaintBox := TPaintBox.Create(Self);
  FPaintBox.FPaintPanel := Self;
  FPaintBox.Parent := Self;
  FPaintBox.Align := alClient;
//Self.ParentBackground := False;  // D6ｿｽﾈ降ｿｽｿｽXPManｿｽｿｽgｿｽｿｽｿｽ鼾ｿｽﾉ必ｿｽvｿｽH
end;

procedure TPaintBox.WMLButtonDown(var Msg: TMessage);
begin
  inherited;
  // PaintBoxｿｽｿｽﾅマｿｽEｿｽXｿｽﾌ搾ｿｽｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽeｿｽｿｽPaintPanelｿｽｿｽFocusｿｽｿｽZｿｽbｿｽg
  Parent.SetFocus;
end;

procedure TPaintBox.WMMouseWheel(var Msg: TWMMouseWheel);
var
  p1, p2: TPoint;
  Handled: Boolean;
begin
  // ｿｽ}ｿｽEｿｽXｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽｿｽﾉゑｿｽｿｽ驍ｩｿｽH(ｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽSｿｽﾌゑｿｽWheelEventｿｽｿｽNｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ費ｿｽｿｽｿｽsｿｽv)
  P1 := ClientToScreen(Point(Left, Top));
  P2 := ClientToScreen(Point(Left+Width, Top+Height));
  if (Msg.XPos < P1.X)or(Msg.XPos > P2.X) then exit;
  if (Msg.YPos < P1.Y)or(Msg.YPos > P2.Y) then exit;
  // ｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽFocusｿｽｿｽｿｽｿｽｿｽｿｽｿｽWheelｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
  Handled := False;
  if Assigned(FPaintPanel.FOnMouseWheel) then begin
    FPaintPanel.FOnMouseWheel(FPaintPanel, KeysToShiftState(Msg.Keys), Msg.WheelDelta, ScreenToClient(Point(Msg.XPos,MSG.YPos)), Handled);
    exit;
  end;
  // Handledｿｽﾌ戻ゑｿｽlｿｽﾍ厄ｿｽｿｽｿｽ
  // ｿｽKｿｽvｿｽﾈらこｿｽｿｽｿｽｿｽOnMouseWheelUPｿｽAOnMouseWheelDOWNｿｽCｿｽxｿｽｿｽｿｽgｿｽ発撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
end;

procedure TPaintPanel.WMMouseWheel(var Msg: TWMMouseWheel);
begin
  // ｿｽeｿｽｿｽPanelｿｽﾉ暦ｿｽｿｽｿｽｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽqｿｽｿｽPaintBoxｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽ
  // ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾌ追会ｿｽｿｽﾅマｿｽEｿｽXｿｽJｿｽ[ｿｽ¥ｿｽｿｽｿｽｿｽｿｽXｿｽNｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾌ会ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽmｿｽﾅゑｿｽｿｽｿｽ
  FPaintBox.WMMouseWheel(Msg);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  // FormｿｽｿｽｿｽPaintPanelｿｽRｿｽｿｽｿｽ|ｿｽ動的ｿｽｿｽｿｽｿｽ
  PaintPanel1 := TPaintPanel.Create(Self);
  PaintPanel1.Parent := Self;
//PaintPanel1.Align := alClient;
  PaintPanel1.Top := 50;
  PaintPanel1.Left := 30;
  PaintPanel1.Width := 400;
  PaintPanel1.Height := 300;
  PaintPanel1.Color := clYellow; // clWhite;
  PaintPanel1.BevelInner := bvNone;
  PaintPanel1.BevelOuter := bvNone;
  PaintPanel1.OnMouseWheel := PaintPanel1MouseWheel;
  FSize := 0;
end;

// ｿｽRｿｽｿｽｿｽ|ｿｽｿｽOnMouseWheelｿｽCｿｽxｿｽｿｽｿｽgｿｽnｿｽｿｽｿｽhｿｽｿｽ
procedure TForm1.PaintPanel1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 // ｿｽ}ｿｽEｿｽXｿｽﾌ各ｿｽlｿｽｿｽMemoｿｽﾉ表ｿｽｿｽ
 Memo1.Lines.Add(Format('%dｿｽF%dｿｽF%.8X / %d',[MousePos.X, MousePos.Y, WheelDelta, Integer(ssShift in Shift)]));
 // Wheelｿｽﾌ会ｿｽ]ｿｽｿｽPaintBoxｿｽﾉ描ｿｽｿｽｿｽｿｽｿｽﾔゑｿｽｿｽlｿｽpｿｽ`ｿｽﾌサｿｽCｿｽYｿｽｿｽgｿｽｿｽ^ｿｽkｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
 with TPaintPanel(Sender) do begin
  Canvas.Pen.Color := clRed xor Color;
  Canvas.Pen.Mode := pmXOR;
  Canvas.PolyLine([Point(0, 0), Point(0, FSize), Point(Fsize, FSize), Point(FSize, 0), Point(0, 0)]);
  if (WheelDelta > 0) then begin   // ｿｽzｿｽCｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
   if FSize > 0 then dec(FSize);
  end else begin                   // ｿｽzｿｽCｿｽ[ｿｽｿｽｿｽｿｽｿｽOｿｽﾉ難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ  
   inc(FSize);
  end;
  Canvas.PolyLine([Point(0, 0), Point(0, FSize), Point(Fsize, FSize), Point(FSize, 0), Point(0, 0)]);
 end;
end;

ｿｽｿｽｿｽｿｽFｿｽuｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽAｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾅ雨ｿｽRｿｽｿｽﾍゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽぅｿｽAｿｽｿｽH ｿｽiｿｽｿｽｿｽｿｽｿｽH ｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ趣ｿｽﾍ」
ｿｽTｿｽqｿｽFｿｽuｿｽoｿｽCｿｽgｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽAｿｽcｿｽAｿｽ^ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽﾉ登ｿｽ轤ｳｿｽｿｽﾄ趣ｿｽ`ｿｽさｿｽ黷ｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽRｿｽﾅゑｿｽｿｽｿｽHｿｽv
ｿｽｿｽｿｽｿｽFｿｽuｿｽｿｽｿｽｿｽﾈゑｿｽﾈ、ｿｽｿｽﾅ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽHｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ驍ｩｿｽｿｽcｿｽv
ｿｽTｿｽqｿｽFｿｽuｿｽzｿｽｿｽｿｽg^^ｿｽHｿｽv
ｿｽｿｽｿｽｿｽFｿｽuｿｽｿｽｿｽ黷ｪｿｽoｿｽCｿｽgｿｽｿｽﾌゑｿｽｿｽｿｽ閧ｾｿｽｿｽｿｽv
ｿｽTｿｽqｿｽFｿｽuｿｽｿｽｿｽ`ｿｽｿｽAｿｽｿｽｿｽｿｽcｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾈカｿｽｿｽｿｽWｿｽﾅ丸め搾ｿｽｿｽﾜれちｿｽ痰､ｿｽだゑｿｽｿｽｿｽ`ｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽﾋゑｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽJｿｽRｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽﾍナｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ？ｿｽv
ｿｽｿｽｿｽｿｽFｿｽuｿｽｿｽｿｽｿｽｿｽﾌスｿｽｿｽｿｽ[ｿｽgｿｽﾌパｿｽlｿｽｿｽｿｽｿｽｿｽYｿｽｿｽｿｽﾄ鯉ｿｽｿｽﾔゑｿｽｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽだ、ｿｽｿｽｿｽﾌ前ｿｽﾌ具ｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽうｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽﾌズｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ？ ｿｽｿｽｿｽ痰 ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾋ？ ｿｽｿｽlｿｽﾆゑｿｽPｿｽKｿｽｿｽｿｽﾈゑｿｽｿｽﾄ良ゑｿｽｿｽｿｽｿｽｿｽ^^ｿｽv 
ｿｽTｿｽqｿｽFｿｽuｿｽｿｽｿｽｿｽｿｽﾌ擾ｿｽﾅマｿｽTｿｽｿｽｿｽｿｽｿｽが危うｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽｿｽｿｽｿｽﾌゑｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ迥ｴｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽﾈゑｿｽｿｽﾆ…ｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽｿｽﾈ奇ｿｽﾈゑｿｽｿｽRｿｽgｿｽｿｽｿｽH ｿｽｿｽｿｽEｿｽRｿｽAｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽAｿｽcｿｽAｿｽ^ｿｽVｿｽｿｽｿｽｿｽｿｽｿｽ齒奇ｿｽﾌズｿｽｿｽｿｽ直ゑｿｽｿｽﾄコｿｽｿｽｿｽ|ｿｽｿｽﾌドｿｽRｿｽﾅゑｿｽWheelｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ奇ｿｽｿｽmｿｽｿｽｿｽoｿｽｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽｿｽｿｽｿｽﾌゑｿｽv
ｿｽTｿｽqｿｽFｿｽuｿｽｿｽｿｽH ｿｽiｿｽｿｽｿｽﾌ話ｿｽHｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽnｿｽｿｽｿｽRｿｽｿｽｿｽだゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾆ良ゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇ、ｿｽAｿｽ^ｿｽVｿｽﾍゑｿｽｿｽ黷ｪｿｽｿｽｿｽｿｽtｿｽv
ｿｽTｿｽqｿｽFｿｽuｿｽ}ｿｽRｿｽgｿｽAｿｽmｿｽｿｽｿｽLｿｽﾟゑｿｽｿｽAｿｽnｿｽｿｽｿｽRｿｽｿｽｿｽｿｽﾌ心ｿｽzｿｽﾍゑｿｽｿｽﾈゑｿｽｿｽﾌ？ ｿｽｿｽｿｽｿｽ{ｿｽｿｽｿｽ閧｢ｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽCｿｽじゑｿｽﾈゑｿｽｿｽHｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽvｿｽAｿｽnｿｽｿｽｿｽRｿｽｿｽｿｽがドｿｽRｿｽﾉ具ｿｽｿｽ驍ｩｿｽﾍ包ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽﾌゑｿｽAｿｽﾅゑｿｽAｿｽｿｽｿｽﾂコｿｽbｿｽ`ｿｽﾉ帰ｿｽｿｽﾌゑｿｽｿｽﾍ…^^;ｿｽv

ｿｽｿｽｿｽｿｽ 2010/06/16(ｿｽｿｽ) 19:34:20

ｿｽYｿｽじｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅどゑｿｽｿｽH

ｿｽﾜゑｿｽｿｽﾍ、ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽB
type
  TpaintBoxB = class(TPaintBox)
  private
    { Private ｿｽ骭ｾ }
  protected
    { Protected ｿｽ骭ｾ }
  public
    { Public ｿｽ骭ｾ }
    procedure MouseWheelHandler(var Message: TMessage); override;
  published
    { Published ｿｽ骭ｾ }
    property OnMouseWheel;
    property OnMouseWheelDown;
    property OnMouseWheelUp;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TpaintBoxB]);
end;

{ TpaintBoxB }

procedure TpaintBoxB.MouseWheelHandler(var Message: TMessage);
var
  ClientPos: TPoint;
begin
  with TCMMouseWheel(Message) do
  begin
    ClientPos := ScreenToClient(SmallPointToPoint(Pos));
    if (0 <= ClientPos.X) and (ClientPos.X <= Self.Width ) and
       (0 <= ClientPos.Y) and (ClientPos.Y <= Self.Height) then
    begin
      Result := 0;
      if DoMouseWheel(ShiftState, WheelDelta, SmallPointToPoint(Pos)) then
        Message.Result := 1
      else if Assigned(Parent) then
        with TMessage(Message) do
          Result := Parent.Perform(CM_MOUSEWHEEL, WParam, LParam);
    end;
  end;
end;

end.

ｿｽ{ｿｽｿｽｿｽﾍコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾅ済まゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽHｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽﾅ会ｿｽﾊゑｿｽｿｽｿｽB
type
  TForm1 = class(TForm)
    paintBoxB1: TpaintBoxB;
  private
    { Private ｿｽ骭ｾ }
  public
    { Public ｿｽ骭ｾ }
    procedure MouseWheelHandler(var Message: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MouseWheelHandler(var Message: TMessage);
begin
  paintBoxB1.MouseWheelHandler(Message);
  inherited;
end;

ｿｽｿｽｿｽｿｽTpaintBoxBｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽけゑｿｽﾊ置ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ逡ｪｿｽｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽTpaintBoxB
ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾅ会ｿｽｿｽｿｽﾅゑｿｽｿｽ驍ｩｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽH

PMAN 2010/06/19(ｿｽy) 15:22:06

ｿｽYｿｽｿｽｿｽﾄゑｿｽHｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽYｿｽｿｽｿｽﾄゑｿｽHｿｽcｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽ
ｿｽy ｿｽpｿｽlｿｽｿｽｿｽﾌ擾ｿｽｿｽPaintBoxｿｽｿｽ謔ｹｿｽｿｽTPaintPanelｿｽRｿｽｿｽｿｽ| ｿｽz
ｿｽﾅなゑｿｽﾆゑｿｽｿｽﾈりそｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾌ疑ｿｽｿｽupublishedｿｽﾉプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅはゑｿｽｿｽﾟなのでゑｿｽｿｽ蛯､ｿｽｿｽ?ｿｽvｿｽﾍ残ｿｽｿｽｿｽｿｽｿｽﾜまでゑｿｽｿｽAｿｽﾐとまゑｿｽｿｽRｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾈので、ｿｽｿｽｿｽｿｽﾆ致ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽﾍみなゑｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.