Delphi RadioGroup 组件基本用法
<p><img src="https://img2020.cnblogs.com/blog/1107379/202101/1107379-20210105172754212-1333452973.png" alt="" loading="lazy"></p><p> </p>
<p> </p>
<p><span class="hljs-number">1. RadioGroup的主要属性</span></p>
<p>(<span class="hljs-number">1) Columns:属性</span></p>
<p>属性 Columns:用于设置单选按钮组中按钮的列数。范围<span class="hljs-number">1~<span class="hljs-number">16默认值为<span class="hljs-number">1。</span></span></span></p>
<p><span class="hljs-number"><img src="https://img2020.cnblogs.com/blog/1107379/202101/1107379-20210105172806958-733076379.png" alt="" loading="lazy"></span></p>
<p> </p>
<p> <img src="https://img2020.cnblogs.com/blog/1107379/202101/1107379-20210105172813778-776502715.png" alt="" loading="lazy"></p>
<p> </p>
<p> </p>
<p>设置方法很简单，充分提现了Delphi的强大功能和方便，只要设置RadioGroup组件的Columns列属性为<span class="hljs-number">1就是竖向显示，为<span class="hljs-number">2就是横向显示。也就是说你的Items有几个就设置几列，如下图：</span></span></p>
<p>(<span class="hljs-number">2) Items属性:用于设置各种单选按钮标题。</span></p>
<p>(<span class="hljs-number">3) ItemIndex:属性:单选按钮组中被选中按钮</span></p>
<p>(从<span class="hljs-number">0开始)的序号。默认值为-<span class="hljs-number">1,表示组中按钮均未被选中。</span></span></p>
<p> </p>
<p><span class="hljs-comment">//设置按钮的cursor效果</span></p>
<p><span class="hljs-comment">procedure TForm1.FormCreate(Sender: TObject);</span></p>
<p><span class="hljs-comment">var</span></p>
<p><span class="hljs-comment"> I: Integer;</span></p>
<p><span class="hljs-comment">begin</span></p>
<p><span class="hljs-comment"> with radiogroup1 do</span></p>
<p><span class="hljs-comment"> begin</span></p>
<p><span class="hljs-comment"> for I := 0 to ControlCount - 1 do</span></p>
<p><span class="hljs-comment"> Buttons.Cursor := crHandPoint;</span></p>
<p><span class="hljs-comment"> end;</span></p>
<p><span class="hljs-comment">end;</span></p>
<p><span class="hljs-comment"> </span></p>
<div>
<div> </div>
<div><span class="hljs-comment">//获取 RadioGroup 项目名称</span></div>
<div><span class="hljs-comment">procedure TForm1.RadioGroup1Click(Sender: TObject);</span></div>
<div><span class="hljs-comment">begin</span></div>
<div><span class="hljs-comment"> Edit1.text := RadioGroup1.Items;</span></div>
<div><span class="hljs-comment">end;</span></div>
</div>
<div> </div>
<div>
<div><span class="hljs-comment">//当点击 RadioGroup 中的第几个选项时...</span></div>
<div><span class="hljs-comment">procedure TForm1.RadioGroup1Click(Sender: TObject);</span></div>
<div><span class="hljs-comment">var</span></div>
<div><span class="hljs-comment"> str: string;</span></div>
<div><span class="hljs-comment">begin</span></div>
<div><span class="hljs-comment"> case RadioGroup1.ItemIndex of</span></div>
<div><span class="hljs-comment"> 0: str := 'one';</span></div>
<div><span class="hljs-comment"> 1: str := 'two';</span></div>
<div><span class="hljs-comment"> 2: str := 'three';</span></div>
<div><span class="hljs-comment"> 3: str := 'four';</span></div>
<div><span class="hljs-comment"> end; </span></div>
<div><span class="hljs-comment"> Edit1.text := str;</span></div>
<div><span class="hljs-comment">end;</span></div>
<div> </div>
<div>
<div><span class="hljs-comment">//delphi读取RadioGroup选中按钮的string文本</span></div>
<div><span class="hljs-comment">procedure TForm1.RadioGroup1Click(Sender: TObject);</span></div>
<div><span class="hljs-comment">begin</span></div>
<div><span class="hljs-comment"> ShowMessage('['+inttostr(RadioGroup1.ItemIndex)+']'+</span></div>
<div><span class="hljs-comment"> RadioGroup1.Items);</span></div>
<div><span class="hljs-comment">end;</span></div>
</div>
<div> </div>
<div>
<div><span class="hljs-comment"> //获取 RadioGroup 项目名称</span></div>
<div><span class="hljs-comment">procedure TForm1.RadioGroup1Click(Sender: TObject);</span></div>
<div><span class="hljs-comment">begin</span></div>
<div><span class="hljs-comment"> Text := RadioGroup1.Items;</span></div>
<div><span class="hljs-comment">end;</span></div>
<div> </div>
<div><span class="hljs-comment">//当点击 RadioGroup 中的第几个选项时...</span></div>
<div><span class="hljs-comment">procedure TForm1.RadioGroup1Click(Sender: TObject);</span></div>
<div><span class="hljs-comment">var</span></div>
<div><span class="hljs-comment"> str: string;</span></div>
<div><span class="hljs-comment">begin</span></div>
<div><span class="hljs-comment"> case RadioGroup1.ItemIndex of</span></div>
<div><span class="hljs-comment"> 0: str := 'one';</span></div>
<div><span class="hljs-comment"> 1: str := 'two';</span></div>
<div><span class="hljs-comment"> 2: str := 'three';</span></div>
<div><span class="hljs-comment"> 3: str := 'four';</span></div>
<div><span class="hljs-comment"> end;</span></div>
<div> </div>
<div><span class="hljs-comment"> Text := str;</span></div>
<div><span class="hljs-comment">end;</span></div>
</div>
</div>
</div>
<div id="MySignature" role="contentinfo">
好的代码像粥一样，都是用时间熬出来的<br><br>
来源：https://www.cnblogs.com/jijm123/p/14237063.html
頁:
[1]