📄 oobject102306.htm
字号:
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
if Sender = Button5 then Button6.Enabled := True;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
if Sender = Button6 then Button4.Enabled := True;</font></span></p>
</div>
<p class="MsoNormal" style="MARGIN: 6pt 0cm 12pt; TEXT-INDENT: 24pt"><font color="#000000"> </font></p>
<p class="MsoNormal" style="MARGIN: 6pt 0cm 12pt; TEXT-INDENT: 24pt"><font color="#000000">第三種，我們撰寫了一個
</font><font face="Comic Sans MS" color="#000000">TButtonGroup </font><font color="#000000">的新的類別，專門來處理按鈕順序的問題。</font></p>
<div style="BORDER-RIGHT: 2px solid; PADDING-RIGHT: 4px; BORDER-TOP: 2px solid; PADDING-LEFT: 4px; PADDING-BOTTOM: 1px; BORDER-LEFT: 2px solid; PADDING-TOP: 1px; BORDER-BOTTOM: 2px solid; BACKGROUND-COLOR: #ffccff">
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">type</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
TButtonGroup = class(TGroupBox)</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
private</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button1: TButton;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2: TButton;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3: TButton;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
procedure OnClick(Sender: TObject);</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
public</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
constructor Create(Owner: TComponent); override;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
destructor Destroy; override;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
end;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000"> </font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">constructor
TButtonGroup.Create(Owner: TComponent);</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">begin</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
inherited;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button1 := TButton.Create(Self);</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2 := TButton.Create(Self);</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3 := TButton.Create(Self);</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button1.Parent := Self;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2.Parent := Self;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3.Parent := Self;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button1.Name := 'Button7';</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2.Name := 'Button8';</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3.Name := 'Button9';</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button1.Top := 25;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2.Top := Button1.Top + Button1.Height + 10;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3.Top := Button2.Top + Button2.Height + 10;;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button1.Left := 28;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2.Left := 28;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3.Left := 28;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2.Enabled := False;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3.Enabled := False;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button1.OnClick := OnClick;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2.OnClick := OnClick;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3.OnClick := OnClick;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">end;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000"> </font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">destructor
TButtonGroup.Destroy;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">begin</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button1.Free;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2.Free;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3.Free;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
inherited;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">end;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000"> </font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">procedure
TButtonGroup.OnClick(Sender: TObject);</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">begin</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button1.Enabled := False;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button2.Enabled := False;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
Button3.Enabled := False;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
if Sender = Button1 then Button2.Enabled := True;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px; TEXT-INDENT: 27pt"><span lang="EN-US" style="FONT-FAMILY: Comic Sans MS"><font color="#000000">
if Sender = Button2 then Button3.Enabled := True;</font></span></p>
<p class="MsoNormal" style="MARGIN-TOP: ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -