一个button控件的caption自动换行问题！

[kay16]

我在做一个收税软件时，有些button键功能是双重的，caption如果过长就被挡住了，只能看到一部分，能不能有个方法把一部分换到下一行？请多指教！
比如一个键的caption是　　“加成/入帐”想换成 “ 加成”
　　　　　　　　　　　　　　　　　　　　　　　　入帐　

[hotyei]

自己画上去吧。也只是一行代码的事。

[kay16]

我是初学的，还不知道怎么画：（

[DURON800]

不行，只有用两个按钮，分别显示，一个VISIBLE为TRUE时，另一个为FALSE.

[liaokuo]

"加成"+#13+'入帐'
也可能不行~~~~~~

[DURON800]

因为BUTTON控件的CAPTION属性是不支持换行的，写代码（如:button1.CAPTION：=‘加成’+ chr(13)+ chr(10) + '入帐'）都不行。

[hotyei]

先试试Button.Caption := '加成'+'\n'+'入帐'，看行不行。
如果不行：

var
DC : HDC;
Canvas : TCanvas;
begin
Button.Caption := '加成'+'\n'+'入帐'
DC := GetDC(Button1.Handle);
Canvas := TCanvas.Create(Self);
Canvas.Handle := DC;

DrawText(Canvas.DC,pChar(Button.Caption),Length(Button.Caption),CLIENTRECT,DT_CENTER+DT_WORDBREAK);

Canvas.Free;
ReleaseDC(Button.Handle,DC);

如果继承的话就只要一两行代码了，因为不用自己取得Canvas.