Text einer CheckBox mehrzeilig darstellen...

[Daniel B]

Delphi-Quellcode:

procedure MultiLineCheckBox(theControl: TWinControl);
var
   dwStyle: Longint;
begin
  dwStyle := GetWindowLong(theControl.handle, GWL_STYLE) or BS_MULTILINE;
  SetWindowLong(theControl.Handle, GWL_STYLE, dwStyle);
end;

Aufruf mit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MultiLineCheckBox(Checkbox1);
  CheckBox1.Caption := 'Hick' + #13#10 + 'Hack' + #13#10 + 'Huck';
end;

Grüsse, Daniel :hi: