可以通过API函数啊,代码如下//button显示多行文字unit MultiLineButton;....typeTMultiLineButton = class(TButton)...public procedure CreateParams(var Params:TCreateParams);override;.....procedure TMultiLineButton.CreateParams(var Params:TCreateParams);begininherited CreateParams(Params);Params.Style:=Params.Style or BS_MULTILINE;end;......目的只有一个,程序可以不用到第三方控件的。尽量不要用。