5,927
社区成员




procedure TForm3.Button1Click(Sender: TObject);
var
I: integer;
begin
with RadioGroup1.Items do
begin
LineBreak := '\';
Clear;
Text := 'budded\This is Budded\budded'#13#10'Budded';
end;
for I := 0 to RadioGroup1.Items.Count - 1 do
RadioGroup1.Buttons[I].WordWrap := True;
end;