//SetWindowLong在按钮中显示两行文字
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(button1.Handle,gwl_style,getwindowlong(button1.Handle,gwl_style)or bs_multiline);
button1.Caption := '退'+ #13 +'出';
end;
//让按钮的CAPTION竖着显示
{只有Bitbtn有效果}
Bitbtn1.Caption:='AAA'#13'BBB';
函数功能：该函数改变指定窗口的属性。函数也将在指定偏移地址的一个32位值存入窗口的额外窗口存。
函数原型：LONG SetWindowLong（HWN hWnd，int nlndex．LONG dwNewLong）；
参数：
hWnd:窗口句柄，及间接声明的该窗口所属的类。
nlndex:给出了要设置的值的零起点的偏移地址。有效值为从0到额外窗口存储空间的字节数一4。例如
如果指定了12位或更多位字节的额外内存，则32位值的索引值应为第3个32位值的索引位8。设置其他值，要指定下列中的一个值：
GWL_EXSTYLE；设置一个新的扩展窗口风格。GWL_STYLE：设置一个新的窗口风格。
GWL_WNDPROC:为窗口过程设置一个新的地址。
GWL_HINSTANCE：设置一个新的应用程序事例句柄。GWL_ID：为窗口设置一个新的标识。
GWL_USERDATA：设置与窗口有关的32位值。每个窗口都有一个对应的32位值供创建该窗口的应用程序使用。
当hWnd参数标识了一个对话框是可使用下列值的：
DWL_DLGPROC：设置对话框过程的新地址。
DWL_MSGRESULT：设置在对话框过程中处理的消息返回值。
DWL_USER：设置新的额外信息，该信息仅为应用程序所有，例如句柄或指针。
dWNewLong：指定替换值。
返回值：如果函数成功，返回值为给定的32位整数的原来的值。如果函数失败，返回值为0。
