Guten Morgen.
Mehrzeiliger Text für die Items einer RadioGroup wird aufgrund des von der
VCL verwendeten button styles nicht umgebrochen. Man kann aber nachhelfen:
Delphi-Quellcode:
procedure TDemoForm.ButtonClick(Sender: TObject);
var
i: Integer;
rbs: DWORD;
rb: TRadioButton;
begin
with RadioGroup do
begin
for i := 0 to Pred(Items.Count) do
begin
rb := Buttons[i];
rbs := GetWindowLong(rb.Handle, GWL_STYLE);
// rbs := rbs + BS_MULTILINE + BS_TOP; // or statt plus ist besser ...
rbs := rbs or BS_MULTILINE or BS_TOP;
SetWindowLong(rb.Handle, GWL_STYLE, rbs);
end;
Invalidate;
end;
end;
Grüße vom marabu