多行Caption的按钮、CheckBox等

如何设置一个按钮用有多行Caption？



procedure TForm1.Button1Click(Sender: TObject);

var

i: Integer;

begin

i := GetWindowLong(Button1.Handle, GWL_STYLE);

SetWindowLong(Button1.Handle, GWL_STYLE, i or BS_MULTILINE);

Button1.Caption := 'Line1' + #13#10 + 'Line2';

end;

改成CheckBox等一样可以。