WordWrap für RadioGroup?

[Helmi]

Zitat von marabu:

Ich Schussel habe + statt or als Operator verwendet.

also so funktionierts:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  rbs: DWORD;
  rb: TRadioButton;
begin
  with RadioGroup1 do
  begin
    for i := 0 to Pred(Items.Count) do
    begin
      rb := Buttons[i];
      rbs := GetWindowLong(rb.Handle, GWL_STYLE); 
      rbs := rbs or BS_MULTILINE or BS_TOP;
      SetWindowLong(rb.Handle, GWL_STYLE, rbs);
    end; 
    Invalidate;
  end;
end;