又来送分咯：怎样让Button上的caption从左到右排列？？

Question

在适当的地方加上一句:button1.caption:=copy(button1.caption,1,n);即可

Answer 1

type
  TButtonEx = class(TButton)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;{ TButtonEx }procedure TButtonEx.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or BS_RIGHT;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  with TButtonEx.Create(Self) do begin
    Parent := Self;
    Caption := '你要的是不是这样的效果？';
  end;
end;

Answer 2

在zswang(伴水) 兄的基础上改了一下。。我想你是要个字回绕的效果吧。。  type
  TButtonEx = class(TButton)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TButtonEx }procedure TButtonEx.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
  Params.Style := Params.Style or BS_Left  or bs_top or BS_MULTILINE ;end;procedure TForm1.FormCreate(Sender: TObject);
const
CRLF=#13#10;
begin  with TButtonEx.Create(Self) do begin    Parent := Self;
    height:=100;
    Caption := '我想你要的是这样的。'+CRLF+'对不对？';  end;end;

Answer 3

谢谢各位，为了简单，用了ych121(dd) 的copy(button1.caption,1,n); 加Hint提示，就象任务栏一样。
不过伴水的我在另一处地方也有用，那就再加点分再结贴了^_*

Answer 4

我明明结贴了的呀~~~为什么这里没显示得分呢~~
得分情况是：ych121(dd)和zswang(伴水) 各11分，black_fox(black_fox) 5分，谢谢其余
的帮我up，各得1分~~~~~特此说明呀^_*
（各位可以看看各自的“我的得分”吧，我也遇到过这种情况的~~~~）