Question

I need a small example on Delphi 5 on how the text of the items present in a radiogroup to wrap text if needed.

I resolved it in Delphi 2006 by accessing buttons property, but in D5 this property does not exist.

LE: is there any solution except than SetWindowLong ?

Answer 1

done.

procedure TForm1.Button1Click(Sender: TObject);
var
 i: Integer;
 rbs: DWORD;
 rb: TRadioButton;
begin
 with RadioGroup1 do
 begin
  for i := 0 to ControlCount-1 do
   begin
    rb := radiogroup1.controls[i] as TRadioButton;
    rbs := GetWindowLong(rb.Handle, GWL_STYLE);
    rbs := rbs or BS_MULTILINE or BS_TOP;
    SetWindowLong(rb.Handle, GWL_STYLE, rbs);
   end ;
   Invalidate;
 end ;
end;