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;
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;
linebreak ??
不过Delphi5就不行了,RadioGroup1.Buttons[I]属性都没的