📄 cb199911nf_f.asp.htm
字号:
<p class=BodyText> </p>
<p class=Subheads><a name=ListingOne></a>Begin Listing One - <i>TRandomNumber</i></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#ifndef
RandomNumberH</span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#define
RandomNumberH</span></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<SysUtils.hpp> </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<Controls.hpp> </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<Classes.hpp> </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<Forms.hpp> </span></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><b>const</b>
<b>unsigned</b> <b>int</b> MAX_DEFAULT = 100; </span></p>
<p class=Code><span class=Code><b>const</b>
<b>unsigned</b> <b>int</b> MIN_DEFAULT = 0; </span></p>
<p class=Code><span class=Code><b> </b></span></p>
<p class=Code><span class=Code><b>class</b>
PACKAGE TRandomNumber : <b>public</b>
TComponent</span></p>
<p class=Code><span class=Code>{</span></p>
<p class=Code><span class=Code><b> private</b>:</span></p>
<p class=Code><span class=Code> <b> unsigned</b>
<b>int</b> FMaxValue; </span></p>
<p class=Code><span class=Code> <b> unsigned</b>
<b>int</b> FMinValue; </span></p>
<p class=Code><span class=Code> <b> unsigned</b>
<b>int</b> <b>__fastcall</b> GetValue; </span></p>
<p class=Code><span class=Code><b> protected</b>:</span></p>
<p class=Code><span class=Code><b> public</b>:</span></p>
<p class=Code><span class=Code> <b> __fastcall</b>
TRandomNumber(TComponent* Owner); </span></p>
<p class=Code><span class=Code> <b> __property</b>
<b>unsigned</b> <b>int</b> Value = { read = GetValue, <b>default</b>
= 0 };</span></p>
<p class=Code><span class=Code><b> __published</b>:</span></p>
<p class=Code><span class=Code> <b> __property</b>
<b>unsigned</b> <b>int</b> MaxValue =</span></p>
<p class=Code><span class=Code> { read = FMaxValue, write = FMaxValue, <b
style='mso-bidi-font-weight:normal'>default</b> = MAX_DEFAULT };</span></p>
<p class=Code><span class=Code> <b> __property</b>
<b>unsigned</b> <b>int</b> MinValue =</span></p>
<p class=Code><span class=Code> { read = FMinValue, write = FMinValue, <b
style='mso-bidi-font-weight:normal'>default</b> = MIN_DEFAULT };</span></p>
<p class=Code><span class=Code>};</span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>// ------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><b>class</b>
PACKAGE EMaxLessThanMin : <b>public</b>
EAbort</span></p>
<p class=Code><span class=Code>{</span></p>
<p class=Code><span class=Code><b> public</b>:</span></p>
<p class=Code><span class=Code> <b> __fastcall</b>
EMaxLessThanMin(String msg) : EAbort(msg) {};</span></p>
<p class=Code><span class=Code>};</span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#endif</span></span></p>
<p class=Code><span class=Code> </span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<vcl.h> </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#pragma
hdrstop</span></span></p>
<p class=Code><span class=Code> </span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
"RandomNumber.h" </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#pragma
package(smart_init) </span></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>// ValidCtrCheck is used to assure that the components
created do not </span></i></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>// have any pure virtual functions. </span></i></span></p>
<p class=Code><span class=Code> </span></p>
<p class=Code><span class=Code><b>static</b>
<b>inline</b> <b>void</b> ValidCtrCheck(TRandomNumber *)</span></p>
<p class=Code><span class=Code>{</span></p>
<p class=Code><span class=Code> <b> new</b>
TRandomNumber(NULL); </span></p>
<p class=Code><span class=Code>}</span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><b>__fastcall</b>
TRandomNumber::TRandomNumber(TComponent* Owner) </span></p>
<p class=Code><span class=Code> : TComponent(Owner) </span></p>
<p class=Code><span class=Code>{</span></p>
<p class=Code><span class=Code> randomize; </span></p>
<p class=Code><span class=Code> FMaxValue = MAX_DEFAULT; </span></p>
<p class=Code><span class=Code> FMinValue = MIN_DEFAULT; </span></p>
<p class=Code><span class=Code>}</span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><b>namespace</b>
Randomnumber</span></p>
<p class=Code><span class=Code>{</span></p>
<p class=Code><span class=Code> <b> void</b>
<b>__fastcall</b> PACKAGE Register</span></p>
<p class=Code><span class=Code> { </span></p>
<p class=Code><span class=Code> TComponentClass classes[1] = {<b
style='mso-bidi-font-weight:normal'>__classid</b>(TRandomNumber)}; </span></p>
<p class=Code><span class=Code> RegisterComponents("Informant", classes,
0); </span></p>
<p class=Code><span class=Code> } </span></p>
<p class=Code><span class=Code>}</span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><b>unsigned</b>
<b>int</b> <b>__fastcall</b> TRandomNumber::GetValue</span></p>
<p class=Code><span class=Code>{</span></p>
<p class=Code><span class=Code> <b> if</b>
(FMaxValue >= FMinValue) </span></p>
<p class=Code><span class=Code> { </span></p>
<p class=Code><span class=Code> <b> return</b>
random(FMaxValue - (FMinValue + 1)) + FMinValue + 1; </span></p>
<p class=Code><span class=Code> } </span></p>
<p class=Code><span class=Code> <b> else</b></span></p>
<p class=Code><span class=Code> <b> throw</b>
EMaxLessThanMin("MaxValue < MinValue"); </span></p>
<p class=Code><span class=Code>}</span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Subheads>End Listing
One</p>
<p class=BodyText> </p>
<p class=Subheads><a name=ListingTwo></a>Begin Listing Two - <i>CustomButton</i> Component</p>
<p class=Code><span class=Code><i><span Class=CodeBlue>// ------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#ifndef
CustomButtonH</span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#define
CustomButtonH</span></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<SysUtils.hpp> </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<Controls.hpp> </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<Classes.hpp> </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<Forms.hpp> </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<StdCtrls.hpp> </span></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><b>class</b>
PACKAGE TCustomButton : <b>public</b>
TButton</span></p>
<p class=Code><span class=Code>{</span></p>
<p class=Code><span class=Code><b> private</b>:</span></p>
<p class=Code><span class=Code><b> protected</b>:</span></p>
<p class=Code><span class=Code><b> public</b>:</span></p>
<p class=Code><span class=Code> <b> __fastcall</b>
TCustomButton(TComponent* Owner); </span></p>
<p class=Code><span class=Code><b> __published</b>:</span></p>
<p class=Code><span class=Code> <b> __fastcall</b>
<b>void</b> Click; </span></p>
<p class=Code><span class=Code>};</span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>// ------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#endif</span></span></p>
<p class=Code><span class=Code> </span></p>
<p class=Code><span class=Code> </span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>//
------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
<vcl.h> </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#pragma
hdrstop</span></span></p>
<p class=Code><span class=Code> </span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#include
"CustomButton.h" </span></span></p>
<p class=Code><span class=Code><span Class=CodeGrn>#pragma
package(smart_init) </span></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>// ------------------------------------------------------------------</span></i></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>// ValidCtrCheck is used to ensure that the components
created do not</span></i></span></p>
<p class=Code><span class=Code><i><span Class=CodeBlue>// have any pure virtual functions. </span></i></span></p>
<p class=Code><span class=Code><b>static</b>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -