delphi中自动生成的Tbutton组件的CAPTION能否显示二行？

Question

各位大佬：
小弟做了一个小软件，类似点菜单，用自动生成TBUTTON组件的方法，BUTTON.CAPTION=商品名，商品名根据数据库中的记录名一个一个排列且都是中文的，可客户要求需要有英文提示，小弟是个新手，不知如何是好，请教各位大佬，万分感谢！

Answer 1

代码里：
BUTTON.CAPTION:='aaa'+#13+'bbb';

Answer 2

方法一：
button的caption用中文显示 hint显示英文提示
方法二：
就是你标题所说的button的caption两行显示，一行显示中文，一行显示英文提示不过button控件不行，可以用bitbtn

Answer 3

procedure SetMulCaption(ABtn: TButton; const AMulCaption: TCaption);
begin
  if not Assigned(ABtn) then Exit;
  with ABtn do
  begin
    SetWindowLong(Handle, GWL_STYLE,
                  GetWindowLong(Handle, GWL_STYLE) or BS_MULTILINE);
    Caption := AMulCaption;
  end;
end;//SetMulCaption(Button1, 'FirstLine' + #13 + 'SecondLine');

Answer 4

各位大佬：
由于数据库操作是根据中文在商品名进行操作，如何提取（'FirstLine' + #13 + 'SecondLine')中的
FIRSTLINE呢？万分感谢！

Answer 5

p:=pos(#13,b.caption);
firstline:=copy(b.caption,1,p-1);