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
Edit1.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;
Edit1.text := 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;