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位值的索引值应为第 332位值的索引位 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




你可能感兴趣的:(window)