-->



实例150 在组件中显示竖排的文本

本实例演示如何在程序运行过程中在TBitBtn组件和TButton组件上显示竖排的文本。

向窗体上添加一个TBitBtn组件和一个TButton组件。添加组件后的窗体如图8-50所示。

8-50 添加组件后的窗体

设置两个组件的Font属性为@System,如图8-51所示。

8-51 设置字体

添加程序初始化代码如下:

procedure TForm1.FormCreate(Sender: TObject);

begin

BitBtn1.Caption :=''+#13+''+#13+''+#13+'';

SetWindowLong(Button1.handle, GWL_STYLE,

GetWindowlong(Button1.Handle, GWL_STYLE) or

BS_MULTILINE);

Button1.Caption :=''+#13+''+#13+''+#13+'';

end;

对于TBitBtn组件而言,如果想要显示竖排文本,设置字体后,只需要在每个需要显示的字符后面加上#13后即可;但是对于TButton组件而言,设置字体后,必须为TButton组件所在窗口追加BS_MULTILINE风格,然后在每个需要显示的字符后面加上#13后才行。

程序代码如下:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

Button1: TButton;

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

BitBtn1.Caption :=''+#13+''+#13+''+#13+'';

SetWindowLong(Button1.handle, GWL_STYLE,

GetWindowlong(Button1.Handle, GWL_STYLE) or

BS_MULTILINE);

Button1.Caption :=''+#13+''+#13+''+#13+'';

end;

end.

保存文件,然后按F9键运行程序,程序运行结果如图8-52所示。

8-52 程序运行结果