|
ｿｽ@ｿｽｿｽｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
ｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽ 2011/01/25(ｿｽｿｽ) 14:54:48
ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
Delphi2010+XP SP3ｿｽﾅ開ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽpｿｽlｿｽｿｽｿｽﾌ抵ｿｽｿｽﾉコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ¥ｿｽｿｽtｿｽｿｽｿｽAｿｽｿｽｿｽﾌパｿｽlｿｽｿｽｿｽｿｽfｿｽUｿｽCｿｽｿｽｿｽﾅコｿｽsｿｽ[
ｿｽｿｽｿｽﾄ貼ｿｽｿｽtｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾆ、ｿｽpｿｽlｿｽｿｽｿｽｿｽﾉ貼ｿｽｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾜめゑｿｽ
ｿｽRｿｽsｿｽ[ｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽlｿｽﾈ難ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ骼厄ｿｽﾍ可能ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽlｿｽbｿｽgｿｽｿｽｿｽﾗてゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽLｿｽtｿｽqｿｽkｿｽﾌ擾ｿｽがゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌでソｿｽ[ｿｽXｿｽｿｽ
ｿｽRｿｽsｿｽ[ｿｽｿｽｿｽﾄ作成ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽpｿｽlｿｽｿｽｿｽﾌみゑｿｽｿｽｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽ黷ｸｿｽpｿｽlｿｽｿｽｿｽｿｽｿｽ
EditｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾍコｿｽsｿｽ[ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽtｿｽqｿｽkｿｽﾌ擾ｿｽｿｽﾍ大分ｿｽﾃゑｿｽ(2002ｿｽNｿｽｿｽｿｽ轤｢?)ｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽDelphiｿｽｿｽ
ｿｽdｿｽlｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽﾇなゑｿｽｿｽｿｽｿｽRｿｽsｿｽ[ｿｽﾌ良ゑｿｽｿｽｿｽｿｽ@
ｿｽｿｽmｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽ轤ｲｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB
ｿｽyｿｽQｿｽlURLｿｽz
http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/faq/00069.htm
ｿｽﾈ擾ｿｽAｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾉゑｿｽｿｽ 2011/01/29(ｿｽy) 16:14:10
2010ｿｽﾍ趣ｿｽｿｽｿｽｿｽﾄなゑｿｽｿｽﾌで包ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽOｿｽﾉクｿｽｿｽｿｽXｿｽｿｽｿｽｿｽoｿｽｿｽｿｽﾄみまゑｿｽｿｽ蛯､ｿｽB
if not(Component is TWinControl) then Exit
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
if not(Component is TWinControl) then
begin
OutPutDebugString(PChar(Component.ClassName));
Exit;
end;
ｿｽﾆゑｿｽｿｽｿｽﾎ確ｿｽFｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ皷橸ｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾃゑｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽmｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾉは、ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽﾂゑｿｽｿｽﾈゑｿｽｿｽけｿｽﾅ、ｿｽ痰､ｿｽﾆゑｿｽｿｽｿｽﾎ、ｿｽNｿｽｿｽｿｽXｿｽﾌ継ｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽ痰､ｿｽﾆゑｿｽｿｽAｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽ閧ｩｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾆは、ComponentCountｿｽﾈどゑｿｽmｿｽFｿｽｿｽｿｽﾄみては。
ｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽ 2011/02/01(ｿｽｿｽ) 10:54:42
ｿｽﾉゑｿｽこゑｿｽｿｽｿｽ
ｿｽﾔ信ｿｽAｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
> if not(Component is TWinControl) then Exit
>
> ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
>
> if not(Component is TWinControl) then
> begin
> OutPutDebugString(PChar(Component.ClassName));
> Exit;
> end;
>
> ｿｽﾆゑｿｽｿｽｿｽﾎ確ｿｽFｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽLｿｽﾌ様ｿｽﾉソｿｽ[ｿｽXｿｽｿｽﾏ更ｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAOutPutDebugStringｿｽﾌ擾ｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽﾇゑｿｽｿｽｿｽnot(Component is TWinContorol)ｿｽｿｽTrueｿｽｿｽ
ｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAComponentCountｿｽﾍコｿｽsｿｽ[ｿｽｿｽ(Src)ｿｽAｿｽRｿｽsｿｽ[ｿｽｿｽ(Dest)ｿｽｿｽｿｽｿｽ0ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽﾆなゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽBｿｽB
ｿｽｿｽﾍゑｿｽAｿｽdｿｽlｿｽﾌ厄ｿｽ閧ｩｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾋ。
KHE00221 2011/02/01(ｿｽｿｽ) 11:44:50
BDS2006ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾈゑｿｽ
ｿｽﾝ計ｿｽｿｽ Panel ｿｽﾌ擾ｿｽﾉゑｿｽｿｽｿｽ Edit ｿｽｿｽ
Edit.Create(Panel) ｿｽﾅなゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽ
Edit.Create(Form) ｿｽﾅ搾ｿｽｿｽｿｽﾄゑｿｽｿｽ驍ｽｿｽｿｽ
ｿｽﾂまゑｿｽ Panel.ComponentCount ｿｽｿｽｿｽOｿｽﾉなゑｿｽ
ｿｽpｿｽlｿｽｿｽｿｽﾆエｿｽfｿｽBｿｽbｿｽgｿｽ動的ｿｽﾉ搾ｿｽｿｽｿｽｿｽ,
var
PanelX: TPanel;
EditX: TEdit;
begin
PanelX := TPanel.Create(Self);
PanelX.Parent := Form3;
EditX := TEdit.Create(PanelX);
EditX.Parent := PanelX;
PanelX.OnMouseUp := Panel1MouseUp;
RemoveComponent(ChildCompo);
Owner.InsertComponent(ChildCompo);
ｿｽｿｽ除ｿｽｿｽｿｽｿｽﾎ難ｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽ
ｿｽﾓゑｿｽｿｽﾄゑｿｽｿｽｿｽ 2011/02/01(ｿｽｿｽ) 15:27:49
KHE00221ｿｽｿｽｿｽｿｽ
ｿｽﾔ信ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
KHE00221ｿｽｿｽｿｽがゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾉ、ｿｽｿｽｿｽIｿｽﾉ作成ｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽﾝゑｿｽｿｽﾆコｿｽsｿｽ[ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ{ｿｽｿｽｿｽﾍ設計ｿｽｿｽｿｽﾉコｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽﾌｿｽｿｽCｿｽAｿｽEｿｽgｿｽｿｽｿｽｿｽﾟて、ｿｽｿｽｿｽｿｽｿｽ
ｿｽRｿｽsｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのでプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽIｿｽﾉ作成ｿｽｿｽｿｽRｿｽsｿｽ[ｿｽｿｽｿｽ骼厄ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽ瘧ｱｿｽADelphiｿｽﾌバｿｽOｿｽﾌ様ｿｽﾉゑｿｽvｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈのゑｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽﾉゑｿｽこゑｿｽｿｽｿｽｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
