RadioGroup Item über 2 Zeilen

[shmia]

Es geht, aber die Items müssen genügend Abstand haben:

Delphi-Quellcode:

procedure MultilineControl(theControl: TWinControl);
var
   dwStyle: Longint;
begin
   dwStyle := GetWindowLong(theControl.handle, GWL_STYLE) or BS_MULTILINE;
   SetWindowLong(theControl.Handle, GWL_STYLE, dwStyle);
end;

var
   i : Integer;
begin
   for i := 0 to RadioGroup1.ControlCount-1 do
      MultilineControl(RadioGroup1.Controls[i] as TWinControl);
   RadioGroup1.Refresh;