Delphi - TDBRadioGroup items wrapable

ตัวอย่างการสั่ง ให้ items ของ TDBRadioGroup ขึ้นบรรทัดใหม่

Sample code

procedure TForm1.FormShow(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to DBRadioGroup1.ControlCount - 1 do
  begin
    SetWindowLong((DBRadioGroup1.Controls[i] as TRadioButton).Handle, GWL_STYLE,
      GetWindowLong((DBRadioGroup1.Controls[i] as TRadioButton).Handle,
      GWL_STYLE) or BS_MULTILINE or BS_TOP);
  end;
  Invalidate;
end;



Comments