WordWrap für RadioGroup?

[marabu]

Guten Morgen.

Mehrzeiliger Text für die Items einer RadioGroup wird aufgrund des von der VCL verwendeten button styles nicht umgebrochen. Man kann aber nachhelfen:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  i: Integer;
  rbs: DWORD;
  rb: TRadioButton;
begin
  with RadioGroup do
  begin
    for i := 0 to Pred(Items.Count) do
    begin
      rb := Buttons[i];
      rbs := GetWindowLong(rb.Handle, GWL_STYLE);
//    rbs := rbs + BS_MULTILINE + BS_TOP;    // or statt plus ist besser ...
      rbs := rbs or BS_MULTILINE or BS_TOP;  
      SetWindowLong(rb.Handle, GWL_STYLE, rbs);
    end;
    Invalidate;
  end;
end;

Grüße vom marabu