在TButton中显示多行Caption

procedure TForm1.Button1Click(Sender: TObject);

begin

SetCaption(button1,'第一行','第二行',form1.Color);

end;

procedure TForm1.SetCaption(AButton: TButton; ACaption1,

ACaption2: string;color:TColor);

var

dc:Hdc;

info:tagsize;

begin

AButton.Caption:='';

dc:=GetDC(AButton.Handle);

SetBKColor(dc,Color);

SetBkMode(dc, TRANSPARENT);

GetTextExtentPoint32(dc,pchar(ACaption1),length(ACaption1),info);

Textout(dc,AButton.Width div 2-info.cx div 2,AButton.Height div 2-info.cy,pchar(ACaption1),length(ACaption1));

GetTextExtentPoint32(dc,pchar(ACaption2),length(ACaption2),info);

TextOut(dc,AButton.width div 2-info.cx div 2,AButton.Height div 2,pchar(ACaption2),length(ACaption2));

end;