|
ｿｽ@ｿｽｿｽｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOBoxｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ髓ｼｿｽOｿｽｿｽ@ｿｽmｿｽｿｽｿｽｿｽﾉは？
|
ｿｽ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
ｿｽgｿｽ}ｿｽg 2005/03/03(ｿｽｿｽ) 18:40:03
PaintBoxｿｽｿｽﾉダｿｽCｿｽAｿｽｿｽｿｽOBoxｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ骼橸ｿｽｿｽｿｽﾌ抵ｿｽｿｽOｿｽiｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽOｿｽjｿｽｿｽｿｽｿｽｿｽｿｽIｿｽﾉ察ｿｽmｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
Mr.XRAY 2005/03/03(ｿｽｿｽ) 21:13:46
>ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOBoxｿｽｿｽ
ｿｽｿｽｿｽﾄなゑｿｽﾅゑｿｽｿｽ蛯ｩｿｽDｿｽﾈ会ｿｽｿｽﾌ様ｿｽﾈゑｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽD
ｿｽVｿｽKｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽｿｽFormｿｽｿｽTOpenDialogｿｽｿｽTButtonｿｽｿｽzｿｽuｿｽD
ｿｽｿｽｿｽｿｽOnShowｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽ成ｿｽD
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
end;
end;
procedure TForm1.OpenDialog1Show(Sender: TObject);
begin
ShowMessage('ｿｽJｿｽｿｽｿｽｿｽ!! ');
end;
ｿｽgｿｽ}ｿｽg 2005/03/03(ｿｽｿｽ) 21:37:20
Mr.XRAYｿｽl
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOBoxｿｽｿｽ
ｿｽﾆは、TOpenDialogｿｽｿｽﾊフｿｽHｿｽ[ｿｽｿｽｿｽﾌゑｿｽｿｽﾆでゑｿｽｿｽB
ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽiTPaintBoxｿｽpｿｽｿｽｿｽjｿｽﾅ後書ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟにゑｿｽｿｽｿｽ轤ｪｿｽﾄび出ｿｽｿｽｿｽｿｽ髓ｼｿｽOｿｽｿｽmｿｽ閧ｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
Mr.XRAY 2005/03/04(ｿｽｿｽ) 00:54:44
ｿｽ謔ｭｿｽ況ゑｿｽｿｽかｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽCOnShowｿｽｿｽｿｽgｿｽｿｽｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽD
TOpenDialogｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽｿｽﾎ，OnShowｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽ
ｿｽIｿｽuｿｽWｿｽFｿｽNｿｽgｿｽCｿｽｿｽｿｽXｿｽyｿｽNｿｽ^ｿｽﾉ鯉ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽCｿｽgｿｽpｿｽﾂ能ｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽﾆゑｿｽTOpenDialogｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽ成ｿｽｿｽｿｽC
ｿｽｿｽｿｽﾌ抵ｿｽｿｽｿｽOnShowｿｽﾌ前ｿｽﾅ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆなゑｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽﾃゑｿｽﾉゑｿｽｿｽﾄゑｿｽCｿｽfｿｽｿｽｿｽﾂゑｿｽﾇゑｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ
ｿｽﾈゑｿｽﾈゑｿｽｿｽﾌゑｿｽ.... ｿｽｿｽｿｽｿｽｿｽｿｽﾆね〜ｿｽD
ｿｽｿｽﾌ仕ｿｽlｿｽﾅゑｿｽｿｽｿｽｿｽｿｽCDoShowｿｽｿｽoverrideｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽwｿｽｿｽｿｽvｿｽｿｽTOpenDialogｿｽﾌゑｿｽ
ｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾌ一覧ｿｽﾌとゑｿｽｿｽｿｽｿｽｿｽｿｽﾇみ会ｿｽｿｽｿｽｿｽｿｽｿｽDｿｽ痰ｦｿｽﾎ以会ｿｽｿｽﾌ様ｿｽｿｽ...
(ｿｽRｿｽ[ｿｽhｿｽﾍ一部ｿｽﾈ暦ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽ)
type
TMyOpenDialog = class(TOpenDialog)
private
protected
procedure DoShow; override;
public
published
end;
implementation
procedure TMyOpenDialog.DoShow;
begin
//ｿｽ¥ｿｽｿｽｿｽOｿｽﾌ擾ｿｽｿｽｿｽ
inherited;
end;
ｿｽgｿｽ}ｿｽg 2005/03/04(ｿｽｿｽ) 10:43:04
Mr.XRAYｿｽl
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾉ、TOpenDialogｿｽｿｽﾊフｿｽHｿｽ[ｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ髓ｼｿｽOｿｽiｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ前ｿｽﾊに表ｿｽｿｽｿｽｿｽｿｽｿｽ髓ｼｿｽOｿｽjｿｽﾉゑｿｽｿｽ髀茨ｿｽｿｽｿｽｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽAｿｽA
Mr.XRAY 2005/03/04(ｿｽｿｽ) 12:27:03
ｿｽｿｽﾉ提示ゑｿｽｿｽｿｽTMyOpenDialogｿｽﾌようｿｽﾈコｿｽ[ｿｽhｿｽﾅは奇ｿｽ]ｿｽﾌ難ｿｽｿｽがｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽ
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽ蛯､ｿｽｿｽｿｽD
ｿｽgｿｽ}ｿｽg 2005/03/04(ｿｽｿｽ) 13:32:09
Mr.XRAYｿｽl
ｿｽﾈゑｿｽﾇゑｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ。ｿｽBｿｽB
Form1ｿｽﾉフｿｽ@ｿｽCｿｽｿｽｿｽｿｽJｿｽｿｽTOpenDialog1ｿｽｿｽﾝ置ｿｽｿｽｿｽﾄ、ｿｽｿｽｿｽ黷ｪｿｽJｿｽｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽg(TPaintBoxｿｽpｿｽｿｽ)ｿｽﾅ趣ｿｽｿｽｿｽｿｽﾅ察ｿｽmｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌゑｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽTOpenDialog1ｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌゑｿｽｿｽﾟのプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ成ｿｽｿｽｿｽｿｽTOpenDialog1ｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾟば済むゑｿｽｿｽﾆなのでゑｿｽｿｽｿｽｿｽAｿｽAｿｽAｿｽｿｽｿｽｿｽｿｽﾅ察ｿｽmｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽB
ｿｽｿｽｿｽﾍゑｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽJｿｽｿｽｿｽｿｽｿｽOｿｽｿｽ@ｿｽmｿｽﾅゑｿｽｿｽｿｽAPIｿｽﾖ撰ｿｽｿｽﾈどなゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2005/03/04(ｿｽｿｽ) 15:05:25
ｿｽ@ｿｽ|ｿｽCｿｽｿｽｿｽgｿｽﾍ２ｿｽｿｽ
ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾍグｿｽｿｽｿｽtｿｽBｿｽbｿｽNｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽ(TGraphicControlｿｽpｿｽｿｽ)ｿｽﾅゑｿｽｿｽｿｽ
ｿｽEｿｽﾊフｿｽHｿｽ[ｿｽｿｽｿｽﾉ移難ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽﾆゑｿｽｿｽﾉ難ｿｽｿｽﾊな擾ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽﾅゑｿｽｿｽﾋ？
ｿｽ@ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽuｿｽOｿｽｿｽｿｽtｿｽBｿｽbｿｽNｿｽRｿｽｿｽｿｽgｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽ"ｿｽｿｽAｿｽNｿｽeｿｽBｿｽuｿｽｿｽ"ｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽvｿｽﾆゑｿｽｿｽﾄまとめゑｿｽｿｽﾜゑｿｽｿｽか？
ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽOnActiveｿｽCｿｽxｿｽｿｽｿｽgｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽﾆゑｿｽｿｽAｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽTｿｽuｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽWM_ACTIVEｿｽｿｽEｿｽｿｽｿｽﾈりしｿｽﾄ対擾ｿｽｿｽｿｽｿｽﾂ能ｿｽﾅゑｿｽｿｽB
ｿｽgｿｽ}ｿｽg 2005/03/04(ｿｽｿｽ) 16:56:57
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽl
ｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
>ｿｽeｿｽtｿｽHｿｽ[ｿｽｿｽｿｽｿｽTｿｽuｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽｿｽｿｽｿｽWM_ACTIVEｿｽｿｽEｿｽｿｽｿｽﾈりしｿｽｿｽ
ｿｽｿｽﾌ的ｿｽﾉはどのようｿｽﾉ擾ｿｽｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽSｿｽﾒのゑｿｽｿｽﾟサｿｽuｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽ謔ｭｿｽかｿｽｿｽﾈゑｿｽｿｽｿｽｿｽ閧ｳｿｽﾜでゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾍ趣ｿｽｿｽｿｽｿｽｿｽﾙど擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝの対擾ｿｽｿｽｿｽｿｽ@ｿｽﾉゑｿｽｿｽｿｽﾗてゑｿｽｿｽﾈ素ｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2005/03/04(ｿｽｿｽ) 18:16:50
WM_ACTIVEｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄ、WM_ACTIVATEｿｽﾅゑｿｽｿｽｿｽ(^^ｿｽUｿｽｿｽｿｽ轤ｵｿｽﾜゑｿｽｿｽｿｽｿｽB
> ｿｽｿｽﾌ的ｿｽﾉはどのようｿｽﾉ擾ｿｽｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ@ｿｽwｿｽｿｽｿｽvｿｽｿｽWindowProc ｿｽﾌペｿｽ[ｿｽWｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽA"ｿｽｿｽ"ｿｽﾉ簡単ｿｽﾈサｿｽuｿｽNｿｽｿｽｿｽXｿｽｿｽｿｽﾌゑｿｽ閧ｩｿｽｿｽｿｽｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽAWM_ACTIVATEｿｽﾍ、ｿｽｿｽﾉゑｿｽｿｽｿｽ謔､ｿｽｿｽWM_STYLEMESSAGEｿｽﾆは違いｿｽｿｽｿｽ[ｿｽUｿｽ[ｿｽｿｽ`ｿｽﾌｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽﾅはなゑｿｽｿｽﾌで、ｿｽKｿｽｿｽｿｽｿｽｿｽｿｽWndProcｿｽﾉ渡ｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽB
------
if Message.Msg = WM_ACTIVATE then
ｿｽ@ｿｽｿｽｿｽｿｽ
else
ｿｽ@WndProc(Message);
------
ｿｽﾅはなゑｿｽ
------
if Message.Msg = WM_ACTIVATE then
ｿｽ@ｿｽｿｽｿｽｿｽ;
WndProc(Message);
------
ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽB
> ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾍ趣ｿｽｿｽｿｽｿｽｿｽﾙど擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝの対擾ｿｽｿｽｿｽｿｽ@ｿｽﾉゑｿｽｿｽｿｽﾗてゑｿｽｿｽﾈ素ｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽ@ｿｽｿｽｿｽｿｽｿｽﾜでコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾉまとめゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽﾋ？ｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾈ素ｿｽﾈ前ｿｽﾉ、ｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾄ用ｿｽIｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
Mr.XRAY 2005/03/04(ｿｽｿｽ) 19:49:12
> ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾍ趣ｿｽｿｽｿｽｿｽｿｽﾙど擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝの対擾ｿｽｿｽｿｽｿｽ@ｿｽﾉゑｿｽｿｽｿｽﾗてゑｿｽｿｽﾈ素ｿｽﾈ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽがｿｽｿｽXｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽdｿｽlｿｽ満ゑｿｽｿｽｿｽｿｽｿｽｿｽﾟには，ｿｽRｿｽ[ｿｽhｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽCｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽmｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽ閧ｽｿｽ閧ｷｿｽ驍ｱｿｽﾆゑｿｽKｿｽv
ｿｽﾅゑｿｽｿｽ蛯､ｿｽDｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ，ｿｽRｿｽ[ｿｽfｿｽBｿｽｿｽｿｽOｿｽﾌ知ｿｽｿｽｿｽ増やしｿｽﾄゑｿｽｿｽｿｽｿｽけｿｽﾅゑｿｽｿｽD
ｿｽﾆゑｿｽｿｽｿｽﾅ，ｿｽﾇゑｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾄゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽDTOpenDialogｿｽﾌ包ｿｽｿｽｿｽ...
ｿｽｿｽｿｽｿｽﾍ目的ｿｽﾌ仕ｿｽlｿｽﾉ会ｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽﾍわかｿｽｿｽﾜゑｿｽｿｽが，
ｿｽｿｽｿｽｿｽCｿｽKｿｽｿｽOpenDialogｿｽｿｽgｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ，ｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽPaintBoxｿｽﾉダｿｽCｿｽAｿｽｿｽｿｽO
ｿｽｿｽgｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽ痰ｦｿｽﾎゑｿｽｿｽｿｽﾈコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾅゑｿｽｿｽD
unit MyPaintBox;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TMyPaintBox = class(TPaintBox)
private
{ Private ｿｽ骭ｾ }
FOpenDialog : TOpenDialog;
FReadDir : String;
procedure MyOpenDialogOnShow(Sender: TObject);
protected
{ Protected ｿｽ骭ｾ }
public
{ Public ｿｽ骭ｾ }
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
property OpenDilalog : TOpenDialog read FOpenDialog;
published
{ Published ｿｽ骭ｾ }
property ReadDir : String read FReadDir write FReadDir;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('plXRAY', [TMyPaintBox]);
end;
{ TMyPaintBox }
constructor TMyPaintBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FOpenDialog:=TOpenDialog.Create(Self);
FOpenDialog.OnShow:=MyOpenDialogOnShow;
FReadDir := 'C:¥';
FOpenDialog.InitialDir:=ReadDir;
end;
destructor TMyPaintBox.Destroy;
begin
FOpenDialog.Free;
inherited;
end;
procedure TMyPaintBox.MyOpenDialogOnShow(Sender: TObject);
begin
ShowMessage('BBB');
end;
end.
ｿｽｿｽｿｽｿｽﾍ省暦ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽDｿｽgｿｽｿｽｿｽｿｽｿｽﾍ，
procedure TForm1.Button1Click(Sender: TObject);
begin
if MyPaintBox1.OpenDilalog.Execute then begin
end;
end;
Mr.XRAY 2005/03/05(ｿｽy) 20:04:31
ｿｽｿｽｿｽﾌ撰ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾌようｿｽｿｽOpenDialogｿｽｿｽTPaintBoxｿｽｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽｿｽ
ｿｽgｿｽｿｽｿｽだのゑｿｽｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽｿｽｿｽC
ｿｽJｿｽｿｽｿｽｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽﾅ，ｿｽｿｽｿｽｿｽﾌ，ｿｽｿｽｿｽｿｽﾌ暦ｿｽﾅ鯉ｿｽｿｽｿｽｿｽﾎ，
OpenDialog1,Form1ｿｽﾈどの厄ｿｽｿｽOｿｽﾌゑｿｽﾌゑｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽoｿｽｿｽｿｽｿｽｿｽｿｽ@
ｿｽﾍ，ｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽﾌ汎用ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾆ思ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽD
ｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾌコｿｽｿｽｿｽ|ｿｽｿｽOpenDialogｿｽ竭ｼｿｽｿｽFormｿｽｿｽgｿｽpｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ，
ｿｽｿｽｿｽｿｽｿｽｿｽvｿｽｿｽｿｽpｿｽeｿｽBｿｽﾉゑｿｽｿｽｿｽﾎ，ｿｽｿｽｿｽﾌプｿｽｿｽｿｽpｿｽeｿｽBｿｽﾌ設抵ｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾂ能
ｿｽﾅゑｿｽｿｽDｿｽﾜゑｿｽｿｽgｿｽpｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾆゑｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽD
ｿｽｿｽﾉ使ｿｽpｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ，ｿｽｿｽｿｽｿｽﾌようｿｽﾉ組ｿｽｿｽｿｽだ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌではなゑｿｽ
ｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽDｿｽｿｽｿｽｿｽﾍ，
>TOpenDialog1ｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌゑｿｽｿｽﾟのプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ成ｿｽｿｽｿｽｿｽTOpenDialog1ｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾟゑｿｽ
ｿｽﾆ考ｿｽｿｽｿｽｿｽｿｽﾍ難ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽDｿｽｿｽｿｽﾌ包ｿｽｿｽ@ｿｽﾌ包ｿｽｿｽｿｽｿｽﾄ用ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽﾍ思ｿｽｿｽｿｽﾜゑｿｽｿｽD
ｿｽgｿｽ}ｿｽg 2005/03/05(ｿｽy) 22:52:37
Mr.XRAY ｿｽl
ｿｽｿｽｿｽxｿｽｿｽｿｽｿｽﾝまゑｿｽｿｽｿｽB
ｿｽ繽托ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽOpenDialogｿｽﾉ鯉ｿｽｿｽ轤ｸｿｽｿｽｿｽｿｽRｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽg(TPaintBoxｿｽpｿｽｿｽ)ｿｽｿｽ
ｿｽOｿｽﾊに表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽﾗてゑｿｽｿｽﾎ象でゑｿｽｿｽBｿｽｿｽｿｽﾌフｿｽHｿｽ[ｿｽｿｽｿｽﾈゑｿｽ_ｿｽCｿｽAｿｽｿｽｿｽOBOX
ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽ髓ｼｿｽOｿｽﾉ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽBｿｽｿｽｿｽeｿｽﾘにソｿｽ[ｿｽXｿｽﾜでゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽ逞假ｿｽpｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽA
>TOpenDialog1ｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾌゑｿｽｿｽﾟのプｿｽｿｽｿｽpｿｽeｿｽBｿｽｿｽ成ｿｽｿｽｿｽｿｽTOpenDialog1ｿｽｿｽ
>ｿｽJｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾟゑｿｽ
ｿｽﾅ茨ｿｽlｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾌで趣ｿｽｿｽﾌ力量ゑｿｽｿｽ轤ｵｿｽﾄゑｿｽｿｽｿｽﾅ我慢ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
