DelphiRadioGroup组件基本⽤法
1. RadioGroup的主要属性
(1) Columns：属性
属性 Columns:⽤于设置单选按钮组中按钮的列数。范围1~16默认值为1。
设置⽅法很简单，充分提现了Delphi的强⼤功能和⽅便，只要设置RadioGroup组件的Columns列属性为1就是竖向显⽰，为2就是横向显⽰。也就是说你的Items有⼏个就设置⼏列，如下图：
(2) Items属性:⽤于设置各种单选按钮标题。
(3) ItemIndex：属性：单选按钮组中被选中按钮
(从0开始)的序号。默认值为-1，表⽰组中按钮均未被选中。
//设置按钮的cursor效果
procedure TForm1.FormCreate(Sender: TObject);
var
I: Integer;
begin
with radiogroup1 do
begin
for I := 0 to ControlCount - 1 do
Buttons[I].Cursor := crHandPoint;
end;
end;
//获取 RadioGroup 项⽬名称
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
< := RadioGroup1.Items[RadioGroup1.ItemIndex];
end;
//当点击 RadioGroup 中的第⼏个选项时...
procedure TForm1.RadioGroup1Click(Sender: TObject);
var
str: string;
begin
htmlradio设置默认的按钮case RadioGroup1.ItemIndex of
0: str := 'one';
1: str := 'two';
2: str := 'three';
3: str := 'four';
end;
< := str;
end;
//delphi读取RadioGroup选中按钮的string⽂本procedure TForm1.RadioGroup1Click(Sender: TObject); begin
ShowMessage('['+inttostr(RadioGroup1.ItemIndex)+']'+      RadioGroup1.Items[RadioGroup1.ItemIndex]); end;
//获取 RadioGroup 项⽬名称
procedure TForm1.RadioGroup1Click(Sender: TObject); begin
Text := RadioGroup1.Items[RadioGroup1.ItemIndex]; end;
//当点击 RadioGroup 中的第⼏个选项时...
procedure TForm1.RadioGroup1Click(Sender: TObject); var
str: string;
begin
case RadioGroup1.ItemIndex of
0: str := 'one';
1: str := 'two';
2: str := 'three';
3: str := 'four';
end;
Text := str;
end;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。