按钮标题中的换行符

Question

我正在构建一个应用程序,我想在窗体上显示一个按钮.我想在两行上显示按钮的标题.我尝试在表单的OnCreate事件中使用以下代码,但它没有显示新行.

Button.Caption := 'Hello' + #13#10 + 'world';

添加新行的任何其他方法？

Answer 1

对于没有WordWrap属性的非常旧的 Delphi版本:

在设置标题之前使用以下代码:

SetWindowLong(Button1.Handle, GWL_STYLE, 
  GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE);

但棘手的部分是这个代码需要在很多场合执行.重新创建按钮后,您的多线设置将丢失.有点像这种困境.

幸运的是,VCL提供了一个解决方案,但您必须子类化TButton类型,例如如下:

type
  TButton = class(StdCtrls.TButton)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

  TForm1 = class(TForm)

...

procedure TButton.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or BS_MULTILINE;
end;

Answer 2

将WordWrap设置为True.就这样.

Answer 3

其他人已经告诉您可以在代码中做什么： setWordwrap和 use SLineBreak。

但我猜你想在设计器中编辑多行。这在普通 IDE 中是不可能的。有一些 3rd 方工具允许它，但您也可以简单地使用 a'|'来分隔行，然后在代码中使用类似的东西

Button1.Caption := 
  StringReplace(Button1.Caption, '|', SLineBreak, [rfReplaceAll]);

（这是凭记忆，因为我这里没有 Delphi，所以请使用正确的语法）。