ｿｽeｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽﾉゑｿｽｿｽｿｽqｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾔの変会ｿｽｿｽ相互に費ｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？

ｿｽ@

ｿｽ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

ing 2009/01/06(ｿｽｿｽ) 07:20:33

ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽJｿｽｿｽｿｽﾉつゑｿｽｿｽﾄ学ｿｽKｿｽｿｽnｿｽﾟまゑｿｽｿｽｿｽｿｽB

ｿｽgｿｽｿｽｿｽbｿｽNｿｽoｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆエｿｽfｿｽBｿｽbｿｽgｿｽﾉ撰ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽGｿｽfｿｽBｿｽbｿｽgｿｽﾉ撰ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾆトｿｽｿｽｿｽbｿｽNｿｽoｿｽ[ｿｽﾌつまみゑｿｽｿｽﾚ難ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽAｿｽﾏ会ｿｽｿｽ相互に費ｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾄみようｿｽﾆ考ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽeｿｽRｿｽｿｽｿｽ|(TPanel)ｿｽﾌ擾ｿｽﾉ子ｿｽRｿｽｿｽｿｽ|(TTrackBarｿｽｿｽTEdit)ｿｽｿｽuｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾅ２ｿｽﾂ包ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ@ｿｽgｿｽｿｽｿｽbｿｽNｿｽoｿｽ[ｿｽｿｽｿｽﾏ会ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽgｿｽｿｽｿｽbｿｽNｿｽoｿｽ[ｿｽﾌつまみの位置ｿｽｿｽGｿｽfｿｽBｿｽbｿｽgｿｽﾉ費ｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾆになゑｿｽBｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽAｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽﾍ？
ｿｽAｿｽGｿｽfｿｽBｿｽbｿｽgｿｽﾉ撰ｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽ黷ｽｿｽﾆゑｿｽｿｽAｿｽgｿｽｿｽｿｽbｿｽNｿｽoｿｽ[ｿｽﾌつまみの位置ｿｽﾉどのようｿｽﾉゑｿｽｿｽﾄ費ｿｽｿｽfｿｽｿｽｿｽｿｽｿｽ驍ｱｿｽﾆになゑｿｽBｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽAｿｽvｿｽｿｽｿｽVｿｽ[ｿｽWｿｽｿｽｿｽﾍ？

ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽﾈ会ｿｽｿｽｿｽｿｽｿｽｿｽﾌソｿｽ[ｿｽXｿｽﾅゑｿｽｿｽB

unit PanelTrackBarEdit;

interface

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

type
  TPanelTrackBarEdit = class(TPanel)
  private
    { Private ｿｽ骭ｾ }
    FTrackBar: TTrackBar;
    FEdit: TEdit;
  protected
    { Protected ｿｽ骭ｾ }
  public
    { Public ｿｽ骭ｾ }
    constructor Create( AOwner: TComponent); override;
  published
    { Published ｿｽ骭ｾ }
  end;

procedure Register;

implementation

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

constructor TPanelTrackBarEdit.Create( AOwner: TComponent);
begin
  inherited Create(AOwner);
  width:= 190;
  height:= 30;//100;

//TrackBarｿｽｿｽ成
  FTrackBar:= TTrackBar.Create(self);
  FTrackBar.Parent:= self;
  FTrackBar.Top:= 2;
  FTrackBar.Left:= 2;

//Editｿｽｿｽ成
  FEdit:= TEdit.Create(self);
  FEdit.Parent:= self;
  FEdit.top:=2;
  FEdit.Left:= 150;
  FEdit.Width:= 30;
  FEdit.Text:= inttostr(FTrackBar.position);
end;

end.

Mr.XRAY 2009/01/06(ｿｽｿｽ) 10:01:15

Mr.XRAYｿｽﾅゑｿｽｿｽDｿｽｿｽｿｽNｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽD

ｿｽｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽﾂコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉはゑｿｽｿｽいｿｽｿｽﾈ趣ｿｽﾞゑｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽC
ingｿｽｿｽｿｽｿｽﾌようｿｽﾉ，ｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽg(PanelTrackBarEdit)ｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽｿｽｿｽｿｽ
TTrackbar,TEditｿｽ操作すｿｽｿｽKｿｽvｿｽﾌなゑｿｽｿｽRｿｽ[ｿｽhｿｽﾅゑｿｽｿｽｿｽﾎ，ｿｽﾈ会ｿｽｿｽﾌ考ｿｽｿｽｿｽｿｽｿｽﾅイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ能ｿｽﾅゑｿｽｿｽD

1. ｿｽｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉ必ｿｽvｿｽﾈイｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽ`
2. ｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽｿｽﾅ必ｿｽvｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ

ｿｽﾈ会ｿｽｿｽﾍ，Editｿｽﾌ値ｿｽｿｽﾏ更ｿｽｿｽｿｽｿｽ鼾ｿｽﾅゑｿｽｿｽD(TEditｿｽｿｽOnChangeｿｽｿｽgｿｽp)

//***ｿｽ@ｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽｿｽsｿｽﾅゑｿｽ(6ｿｽs)

unit PanelTrackBarEdit;

interface

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

type
  TPanelTrackBarEdit = class(TPanel)
  private
    { Private ｿｽ骭ｾ }
    FTrackBar: TTrackBar;
    FEdit: TEdit;
  protected
    { Protected ｿｽ骭ｾ }
    procedure EditChange(Sender: TObject);     //***
  public
    { Public ｿｽ骭ｾ }
    constructor Create( AOwner: TComponent); override;
  published
    { Published ｿｽ骭ｾ }
  end;

procedure Register;

implementation

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

constructor TPanelTrackBarEdit.Create( AOwner: TComponent);
begin
  inherited Create(AOwner);
  width:= 190;
  height:= 30;//100;

//TrackBarｿｽｿｽ成
  FTrackBar:= TTrackBar.Create(self);
  FTrackBar.Parent:= self;
  FTrackBar.Top:= 2;
  FTrackBar.Left:= 2;

//Editｿｽｿｽ成
  FEdit:= TEdit.Create(self);
  FEdit.Parent:= self;
  FEdit.top:=2;
  FEdit.Left:= 150;
  FEdit.Width:= 30;
  FEdit.OnChange := EditChange;    //***
  FEdit.Text:= inttostr(FTrackBar.position);
end;

procedure TPanelTrackBarEdit.EditChange(Sender: TObject);  //***
begin                                                      //***
    FTrackBar.Position := StrToIntDef(FEdit.Text,0);     //***
end;                                                       //***

end.

ｿｽQｿｽlｿｽﾉなるかｿｽﾇゑｿｽｿｽｿｽｿｽﾍわかｿｽｿｽﾜゑｿｽｿｽｿｽ...
http://mrxray.on.coocan.jp/Delphi/plSamples/160_CreateComponent.htm#110

ing 2009/01/06(ｿｽｿｽ) 21:57:26

Mr.XRAY ｿｽｿｽｿｽｿｽｿｽ

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽuｿｽｿｽｿｽﾎらしｿｽｿｽｿｽvｿｽﾌ一言ｿｽﾉ尽ｿｽｿｽｿｽﾜゑｿｽｿｽB

Mr.XRAYｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄ、
ｿｽu//*ｿｽvｿｽﾌつゑｿｽｿｽﾄゑｿｽｿｽｿｽsｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾒゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽﾅゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽｿｽﾆに、ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌサｿｽCｿｽYｿｽｿｽﾏゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ、ｿｽgｿｽｿｽｿｽbｿｽNｿｽoｿｽ[ｿｽﾆエｿｽfｿｽBｿｽbｿｽgｿｽﾌ位置ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽGｿｽfｿｽBｿｽbｿｽgｿｽﾌ広ｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽいｿｽｿｽﾈプｿｽｿｽｿｽpｿｽeｿｽBｿｽ窿ｿｽ¥ｿｽbｿｽhｿｽｿｽtｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽAｿｽﾗ具ｿｽｿｽｿｽdｿｽﾋゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾈ会ｿｽｿｽｿｽｿｽAMr.XRAYｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽﾜねゑｿｽｿｽﾄ付ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB

unit PanelTrackBarEdit;

interface

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

type
  TPanelTrackBarEdit = class(TPanel)
  private
    { Private ｿｽ骭ｾ }
    FTrackBar: TTrackBar;
    FEdit: TEdit;
  protected
    { Protected ｿｽ骭ｾ }
    procedure EditChange(Sender: TObject);     //***
    procedure TrackBarChange(Sender: TObject);     //*
  public
    { Public ｿｽ骭ｾ }
    constructor Create( AOwner: TComponent); override;
  published
    { Published ｿｽ骭ｾ }
  end;

procedure Register;

implementation

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

constructor TPanelTrackBarEdit.Create( AOwner: TComponent);
begin
  inherited Create(AOwner);
  width:= 190;
  height:= 30;//100;

//TrackBarｿｽｿｽ成
  FTrackBar:= TTrackBar.Create(self);
  FTrackBar.Parent:= self;
  FTrackBar.Top:= 2;
  FTrackBar.Left:= 2;
  FTrackBar.OnChange:= TrackBarChange; //*

//Editｿｽｿｽ成
  FEdit:= TEdit.Create(self);
  FEdit.Parent:= self;
  FEdit.top:=2;
  FEdit.Left:= 150;
  FEdit.Width:= 30;
  FEdit.OnChange := EditChange;    //***
  FEdit.Text:= inttostr(FTrackBar.position);
end;

procedure TPanelTrackBarEdit.EditChange(Sender: TObject);  //***
begin                                                      //***
    FTrackBar.Position := StrToIntDef(FEdit.Text,0);     //***
end;                                                       //***

procedure TPanelTrackBarEdit.TrackBarChange(Sender: TObject);  //*
begin                                                      //*
     FEdit.Text:= intTostr(FTrackBar.Position);     //*
end;                                                       //*

end.

Mr.XRAY 2009/01/07(ｿｽｿｽ) 12:55:52

>ｿｽｿｽｿｽｿｽｿｽｿｽﾆに、ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌサｿｽCｿｽYｿｽｿｽﾏゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾉ、ｿｽgｿｽｿｽｿｽbｿｽNｿｽoｿｽ[ｿｽﾆエｿｽfｿｽBｿｽbｿｽg

ｿｽｿｽｿｽｿｽｿｽこの包ｿｽｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽCｿｽﾜゑｿｽｿｽﾊの包ｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽﾋ．
ｿｽｿｽｿｽｿｽﾅ使ｿｽpｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌクｿｽｿｽｿｽXｿｽｿｽｿｽ`ｿｽｿｽｿｽﾄ使ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾍ，ｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉ対ゑｿｽｿｽﾄ細ゑｿｽｿｽｿｽｿｽｿｽｿｽ艪ｪｿｽKｿｽvｿｽﾆなゑｿｽｿｽｿｽｿｽ鼾ｿｽﾉ有ｿｽｿｽｿｽﾅゑｿｽｿｽD

ｿｽﾚゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾍ省暦ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽCｿｽeｿｽXｿｽgｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ以会ｿｽｿｽﾌ手順ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽD

1. ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌコｿｽ[ｿｽhｿｽｿｽoｿｽXｿｽﾌ通ゑｿｽｿｽｿｽ(ｿｽﾆりあｿｽｿｽｿｽｿｽｿｽeｿｽXｿｽgｿｽpｿｽﾌプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽ)ｿｽﾉ置ｿｽｿｽ
2. ｿｽeｿｽXｿｽgｿｽpｿｽﾌプｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽ成ｿｽDｿｽRｿｽｿｽｿｽ|ｿｽﾍゑｿｽｿｽﾌテｿｽXｿｽgｿｽpｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽD
ｿｽ@ｿｽ@usesｿｽｿｽplPanelTrackBarEditｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽﾜゑｿｽ

ｿｽrｿｽWｿｽｿｽｿｽAｿｽｿｽｿｽﾈコｿｽｿｽｿｽ|ｿｽﾌテｿｽXｿｽgｿｽﾍ，ｿｽｿｽｿｽsｿｽｿｽｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽD
ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ再イｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽDｿｽｿｽｿｽｿｽｿｽｿｽCｿｽﾝ計ｿｽｿｽｿｽﾌデｿｽUｿｽCｿｽｿｽ
ｿｽeｿｽXｿｽgｿｽﾌ場合ｿｽﾍ再イｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾅゑｿｽｿｽD

-----  ｿｽRｿｽｿｽｿｽ|ｿｽﾌコｿｽ[ｿｽhｿｽ@ｿｽ@plPanelTrackBarEdit.pasｿｽﾅ保托ｿｽｿｽｿｽｿｽｿｽ  --------

unit plPanelTrackBarEdit;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, StdCtrls, ComCtrls, Graphics;

type
  //ｿｽOｿｽｿｽｿｽQｿｽｿｽ
  //TplTracBarｿｽｿｽTplEditSPｿｽﾍコｿｽ[ｿｽhｿｽﾅは鯉ｿｽｿｽｿｽﾅ抵ｿｽ`ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽﾟ，ｿｽｿｽｿｽﾌままでは参ｿｽｿｽ
  //ｿｽﾅゑｿｽｿｽﾈゑｿｽ
  TplTrackBar = class;
  TplEditSP   = class;

  TplPanelTrackBarEdit = class(TPanel)
  private
    { Private ｿｽ骭ｾ }
    FTrackBar : TplTrackBar;
    FEdit     : TplEditSP;
  protected
    { Protected ｿｽ骭ｾ }
    procedure SetParent(AParent: TWinControl); override;
  public
    { Public ｿｽ骭ｾ }
    constructor Create( AOwner: TComponent); override;
    destructor  Destroy; override;
    property TrackBar : TplTrackBar read FTrackBar write FTrackBar;
    property Edit     : TplEditSP   read FEdit     write FEdit;
  published
    { Published ｿｽ骭ｾ }
  end;

  //ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽTTrackBar
  //TplPanelTrackBarEditｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽ利用ｿｽﾂ能ｿｽﾉゑｿｽｿｽ驍ｽｿｽﾟにプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽ`
  TplTrackBar = class(TTrackBar)
  private
    FPanelTrackBarEdit : TplPanelTrackBarEdit;
  protected
    procedure Changed; override;
  public
    property PanelTrackBarEdit : TplPanelTrackBarEdit read FPanelTrackBarEdit;
  end;

  //ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽTEdit
  //TplPanelTrackBarEditｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽ利用ｿｽﾂ能ｿｽﾉゑｿｽｿｽ驍ｽｿｽﾟにプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽｿｽ`
  TplEditSP = class(TCustomEdit)
  private
    FPanelTrackBarEdit : TplPanelTrackBarEdit;
  protected
    procedure Change; override;
    procedure DoEnter; override;
    procedure KeyPress(var Key: Char); override;
  public
    property PanelTrackBarEdit : TplPanelTrackBarEdit read FPanelTrackBarEdit;
  end;

procedure Register;

implementation

uses DebugWndUnit;

procedure Register;
begin
  RegisterComponents('plXRAY', [TplPanelTrackBarEdit]);
end;

{ TplTrackBarEdit }

//=============================================================================
//  ｿｽRｿｽｿｽｿｽ|ｿｽｿｽCreateｿｽｿｽｿｽｿｽ
//  ｿｽrｿｽWｿｽｿｽｿｽAｿｽｿｽｿｽﾈ難ｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽSetParentｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
//  ｿｽｿｽrｿｽWｿｽｿｽｿｽAｿｽｿｽｿｽﾈ難ｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽCreateｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾄよい
//=============================================================================
constructor TplPanelTrackBarEdit.Create(AOwner: TComponent);
begin
    inherited;

    Caption := '';
    Width   := 250;
    Height  := 85;
    Color   := $00AFBBA6;

    //Delphi6ｿｽﾈ降ｿｽｿｽXPManｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽ鼾ｿｽﾍゑｿｽｿｽ黷ｪｿｽﾈゑｿｽｿｽｿｽTPanelｿｽｿｽColorｿｽvｿｽｿｽｿｽpｿｽeｿｽB
    //ｿｽﾌ設定がｿｽｿｽｿｽfｿｽｿｽｿｽｿｽﾈゑｿｽ
    Self.ParentBackground := False;
end;
//=============================================================================
//  ｿｽRｿｽｿｽｿｽ|ｿｽｿｽDestroyｿｽｿｽｿｽｿｽ
//  ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
//=============================================================================
destructor TplPanelTrackBarEdit.Destroy;
begin
    if Assigned(FTrackBar) then FreeAndNil(FTrackBar);
    if Assigned(FEdit)     then FreeAndNil(FEdit);

    inherited;
end;
//=============================================================================
//  ｿｽRｿｽｿｽｿｽ|ｿｽｿｽSetParentｿｽｿｽｿｽｿｽ
//  ｿｽrｿｽWｿｽｿｽｿｽAｿｽｿｽｿｽﾈ難ｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽSetParentｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
//  SetParentｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾍ会ｿｽｿｽｿｽｿｽﾄ出ｿｽｿｽｿｽｿｽｿｽﾌで抵ｿｽｿｽｿｽ
//=============================================================================
procedure TplPanelTrackBarEdit.SetParent(AParent: TWinControl);
begin
    inherited;

    //ｿｽRｿｽｿｽｿｽ|ｿｽjｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽSetParentｿｽﾍ呼ばゑｿｽ驍ｽｿｽﾟ，Parentｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
    if AParent = nil then exit;

    Caption := '';

     if not Assigned(FTrackBar) then begin
      FTrackBar := TplTrackBar.Create(Self);
      FTrackBar.Parent    := Self;
      FTrackBar.Left      := 10;
      FTrackBar.Top       := 10;
      FTrackBar.Height    := 35;
      FTrackBar.Width     := Self.Width-FTrackBar.Left-10;
      FTrackBar.Min       := 0;
      FTrackBar.Max       := 100;
      FTrackBar.Frequency := 10;
      FTrackBar.TickStyle := tsNone;
      FTrackBar.FPanelTrackBarEdit := Self;
    end;

    if not Assigned(FEdit) then begin
      FEdit := TplEditSP.Create(Self);
      FEdit.Parent := Self;
      FEdit.Left   := FTrackBar.Left+5;
      FEdit.Top    := FTrackBar.Top+FTrackBar.Height+3;
      FEdit.Width  := 45;
      FEdit.FPanelTrackBarEdit := Self;
    end;
    FEdit.SetFocus;
end;

{ TplTrackBar }

//=============================================================================
//  TTrackBarｿｽRｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽﾅゑｿｽOnChageｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽ
//  Changedｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽOverrideｿｽｿｽｿｽﾄ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽｿｽｿｽIｿｽﾉゑｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽﾄばゑｿｽｿｽ
//=============================================================================
procedure TplTrackBar.Changed;
begin
   inherited;

   FPanelTrackBarEdit.FEdit.Text:= IntTostr(Self.Position);
end;

{ TplEditSP }

//=============================================================================
//  TEditｿｽRｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽﾅゑｿｽOnChageｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽ
//  Changeｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽOverrideｿｽｿｽｿｽﾄ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽｿｽｿｽIｿｽﾉゑｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽﾄばゑｿｽｿｽ
//=============================================================================
procedure TplEditSP.Change;
begin
    inherited;

    FPanelTrackBarEdit.FTrackBar.Position :=
              StrToIntDef(FPanelTrackBarEdit.FEdit.Text,0);
end;
//=============================================================================
//  TEditｿｽRｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽﾅゑｿｽOnEnterｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽ
//  DoEnterｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽOverrideｿｽｿｽｿｽﾄ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽｿｽｿｽIｿｽﾉゑｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽﾄばゑｿｽｿｽ
//=============================================================================
procedure TplEditSP.DoEnter;
begin
    inherited;

    //ｿｽｿｽｿｽﾈ奇ｿｽｿｽｿｽｿｽｿｽｿｽﾍゑｿｽsｿｽﾂにゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ
    SetImeMode(Handle,imDisable);
end;
//=============================================================================
//  TEditｿｽRｿｽｿｽｿｽ|ｿｽｿｽｿｽｿｽﾅゑｿｽOnKeyPressｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽｿｽ
//  KeyPressｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽOverrideｿｽｿｽｿｽﾄ作成ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽｿｽｿｽIｿｽﾉゑｿｽｿｽﾌｿｽｿｽ¥ｿｽbｿｽhｿｽｿｽｿｽﾄばゑｿｽｿｽ
//  KeyPressｿｽﾍ継ｿｽｿｽｿｽｿｽｿｽｿｽTWindControl.pasｿｽﾅ抵ｿｽ`ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ
//=============================================================================
procedure TplEditSP.KeyPress(var Key: Char);
begin
    //ｿｽｿｽｿｽlｿｽﾈ外ｿｽﾍ難ｿｽｿｽﾍゑｿｽｿｽｿｽｿｽﾈゑｿｽ
    //ｿｽpｿｽｿｽｿｽﾍ難ｿｽｿｽﾍでゑｿｽｿｽﾈゑｿｽ. #8ｿｽｿｽ[BackSpace]. #27ｿｽｿｽ[Escape]
    if ((Key>='0') and (Key<='9')) or (Key=#8) or (Key=#27) then begin
      inherited KeyPress(Key);
    end else begin
      Key:=#0;
    end;
end;

end.

------  ｿｽeｿｽXｿｽgｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌコｿｽ[ｿｽh

//=============================================================================
//  ｿｽJｿｽｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽ¥ｿｽｿｽｿｽJｿｽnｿｽﾅ撰ｿｽｿｽｿｽ
//  ｿｽrｿｽWｿｽｿｽｿｽAｿｽｿｽｿｽﾈコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾍ，ｿｽTｿｽﾏゑｿｽﾏ更ｿｽｿｽｿｽｿｽﾆ再イｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽKｿｽvｿｽﾉなゑｿｽ
//  ｿｽｿｽｿｽsｿｽｿｽｿｽﾌテｿｽXｿｽgｿｽﾅゑｿｽｿｽｿｽﾎ，ｿｽｿｽｿｽsｿｽｿｽｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽｿｽﾄテｿｽXｿｽgｿｽｿｽｿｽｿｽﾆ再イｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽsｿｽv
//  ｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽﾝ計ｿｽｿｽｿｽﾌ外ｿｽﾏ変更ｿｽﾍ再イｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽKｿｽv
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
var
    APanelTrackBarEdit : TplPanelTrackBarEdit;
begin
    APanelTrackBarEdit := TplPanelTrackBarEdit.Create(Self);
    APanelTrackBarEdit.Parent := Self;
    APanelTrackBarEdit.Top    := 20;
    APanelTrackBarEdit.Left   := 20;
end;

>ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽJｿｽｿｽｿｽﾉつゑｿｽｿｽﾄ学ｿｽKｿｽｿｽnｿｽﾟまゑｿｽｿｽｿｽｿｽB

ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽﾌで，ｿｽﾂゑｿｽｿｽﾅに．

ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽ{ｿｽﾌの厄ｿｽｿｽOｿｽCｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾅ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽﾉゑｿｽ
ｿｽﾉ力ｿｽｿｽjｿｽ[ｿｽNｿｽﾈ厄ｿｽｿｽOｿｽｿｽﾂゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽﾍ托ｿｽｿｽﾌｿｽｿｽjｿｽbｿｽgｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ厄ｿｽｿｽOｿｽﾌ衝突ゑｿｽｿｽｿｽｿｽ驍ｽｿｽﾟでゑｿｽｿｽD
ｿｽｿｽｿｽﾍプｿｽｿｽｿｽtｿｽBｿｽbｿｽNｿｽXｿｽﾆゑｿｽｿｽﾄ先頭ｿｽｿｽplｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽD

ing 2009/01/19(ｿｽｿｽ) 06:30:08

Mr.XRAYｿｽ@ｿｽｿｽｿｽｿｽ

ｿｽｿｽｿｽﾎらくｿｽﾌ間、2009/01/06(ｿｽｿｽ) 10:01:15ｿｽ@ｿｽﾉ回答ゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆにつゑｿｽｿｽﾄ学ｿｽKｿｽｿｽiｿｽﾟてゑｿｽｿｽｿｽAｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽｿｽJｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽSｿｽﾒゆえｿｽAｿｽｿｽｿｽXｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽJｿｽｿｽﾔゑｿｽｿｽwｿｽKｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾂ暦ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾄ、ｿｽｿｽLｿｽ¥ｿｽ[ｿｽX(plPanelTrackBarEdit.pas)ｿｽｿｽRｿｽｿｽｿｽpｿｽCｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽA
uses DebugWndUnit;
ｿｽﾌ行ｿｽﾅ、ｿｽvｿｽｿｽｿｽIｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅまゑｿｽｿｽB
ｿｽOｿｽｿｽｿｽQｿｽﾆのｿｽｿｽjｿｽbｿｽgｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽQｿｽﾆゑｿｽｿｽｿｽﾎよいｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

Mr.XRAY 2009/01/19(ｿｽｿｽ) 09:07:54

Mr.XRAYｿｽﾅゑｿｽｿｽD

>uses DebugWndUnit;
>ｿｽﾌ行ｿｽﾅ、ｿｽvｿｽｿｽｿｽIｿｽGｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅまゑｿｽｿｽB

ｿｽｿｽｿｽｿｽﾍ，ｿｽｿｽｿｽｿｽｿｽfｿｽoｿｽbｿｽNｿｽﾌゑｿｽｿｽﾟに使ｿｽpｿｽｿｽｿｽﾄゑｿｽｿｽ驛ｿｽjｿｽbｿｽgｿｽﾅゑｿｽｿｽDｿｽ除ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽD
ｿｽｿｽｿｽXｿｽ除ｿｽｿｽYｿｽｿｽｿｽｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽsｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽUPｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽDｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽD

http://mrxray.on.coocan.jp/Delphi/plSamples/160_CreateComponent.htm#112
ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌ先頭ｿｽｿｽ[DownLoad]ｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽD

Mr.XRAY 2009/01/19(ｿｽｿｽ) 10:24:59

ｿｽXｿｽ‾ｿｽ}ｿｽZｿｽｿｽｿｽDｿｽﾔ違いｿｽﾜゑｿｽｿｽｿｽｿｽDｿｽｿｽｿｽｿｽﾌは趣ｿｽｿｽsｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ．

http://mrxray.on.coocan.jp/Delphi/plSamples/160_CreateComponent.htm#111

ｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽCｿｽｿｽｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽg(ｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽ)ｿｽｿｽｿｽｿｽﾂコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ
ｿｽ成ｿｽﾍ鯉ｿｽｿｽ¥ｿｽしｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽD

ing 2009/01/20(ｿｽｿｽ) 21:17:59

Mr.XRAYｿｽ@ｿｽｿｽｿｽｿｽ
ｿｽずｿｽｿｽｿｽﾌ間に２ｿｽﾂゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾐ介しｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽyｿｽ[ｿｽWｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽxｿｽｿｽｿｽｿｽﾔゑｿｽｿｽﾄ学ｿｽKｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽvｿｽｿｽｿｽﾂゑｿｽｿｽﾅ、ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾛ托ｿｽｿｽﾝ定しｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

DelphiｿｽｿｽｿｽSｿｽﾒのゑｿｽｿｽｿｽｿｽﾉ、ｿｽｿｽｿｽｿｽｿｽnｿｽ[ｿｽhｿｽｿｽｿｽﾉ抵ｿｽｿｽｿｽﾅ、ｿｽﾝなゑｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽfｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾉとゑｿｽｿｽﾄ雲ｿｽﾌ擾ｿｽﾌ托ｿｽｿｽﾝ（ｿｽｿｽｿｽｿｽｿｽﾄにゑｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽjｿｽﾅゑｿｽｿｽｿｽMr.XRAYｿｽｿｽｿｽかゑｿｽuｿｽｿｽｿｽｿｽﾎゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽvｿｽﾆ撰ｿｽｿｽｿｽｿｽ頂ゑｿｽｿｽAｿｽﾆてゑｿｽｿｽｿｽ黷ｵｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ黷ｩｿｽｿｽｿｽAｿｽｿｽｿｽﾂゑｿｽｿｽﾂゑｿｽｿｽｿｽﾎりたｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ

Created by board of various Programming Library.