Hints für TRadioGroup setzen

[shmia]

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:

Delphi-Quellcode:

SetRadiogroupHints(RadioGroup1, ['Window 95/98', 'Windows NT und höher', 'ab Linux Kernel 2.1']);