600) this.width = 600;">
function RadioGroupButton(itemIndex : integer; radioGroup : TRadioGroup) : TRadioButton; overload;
begin
if (itemIndex < 0) OR (itemIndex >= radioGroup.Items.Count) then
begin
result := nil;
Exit;
end;
result := radioGroup.Controls[itemIndex] as TRadioButton;
end;
function RadioGroupButton(itemText : string; radioGroup : TRadioGroup) : TRadioButton; overload;
//returns only the first item with itemText Caption
var
cnt : integer;
buttonIndex : integer;
begin
buttonIndex := -1;
for cnt := 0 to -1 + radioGroup.Items.Count do
begin
if radioGroup.Items[cnt] = itemText then
begin
buttonIndex := cnt;
break;
end;
end;
result := RadioGroupButton(buttonIndex,radioGroup) ;
end;
示例代码:
var
rb : TRadioButton;
begin
//disable 6th item
rb := RadioGroupButton(4,RadioGroup1) ;
if rb <> nil then
rb.Enabled := false;
//Bold item
rb := RadioGroupButton('Change Font,',RadioGroup1) ;
if rb <> nil then
rb.Font.Style := rb.Font.Style + [fsBold];
//Change back color
rb := RadioGroupButton(0,RadioGroup1) ;
if rb <> nil then
rb.Color := clRed;
//Change font color
rb := RadioGroupButton(2,RadioGroup1) ;
if rb <> nil then
rb.Font.Color := clGreen;
end;