Mit folgender Prozedure kann man den Hint jedes einzelnen RadioButtons innerhalb einer RadioGroup setzen:
Delphi-Quellcode:
procedure SetRadiogroupHints(rg:TCustomRadioGroup; const Hints:array of string);
var
i : Integer;
begin
for i := 0 to rg.ControlCount-1 do
begin
if i > High(Hints) then
Break;
with rg.controls[i] do
begin
Hint := Hints[i];
ShowHint := Hint<>'';
end;
end;
end;
Der Aufruf könnte z.B. so aussehen:
SetRadiogroupHints(RadioGroup1, ['Window 95/98', 'Windows NT und höher', 'ab Linux Kernel 2.1']);