5,388
社区成员
发帖
与我相关
我的任务
分享
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;