RadioGroup Item über 2 Zeilen

[Joergie]

Hallo,
habe eine RadioGroup!

Delphi-Quellcode:

RadioGroup.Items.Add('Text');
RadioGroup.Items.Add('sehr langer Text soll über mehrere Zeilen angezeigt werden');

leider wird der text nicht über 2 Zeilen angezeigt! Wie kann ich das machen?

Danke

[Sharky]

Zitat von Joergie:

... Wie kann ich das machen?...

Hai Joergie,
hart aber wohl war: Es geht nicht.

[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;

[Joergie]

Funktioniert!
Keine Ahnung was ich da abgeschrieben habe, aber ist schon ziemlich cool!

DANKE!!!!!