SetWindowLong在按钮中显示两行文字

//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。

通过 Wiz 发布