5,386
社区成员
发帖
与我相关
我的任务
分享TStaticText控件我想要把Caption显示在右下角怎么办？在线给分
TStaticText控件我想要把Caption显示在右下角怎么办？
...全文
请发表友善的回复…
发表回复
lxpbuaa 2002-07-12
- 打赏
- 举报
设定Alignment=taRightJustify,然后动态加换行符，比如：
procedure TForm1.Button1Click(Sender: TObject);
begin
StaticText1.Caption := StringOfChar(#13,n-1) + StaticText1.Caption; //假设有n行
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————
procedure TForm1.Button1Click(Sender: TObject);
begin
StaticText1.Caption := StringOfChar(#13,n-1) + StaticText1.Caption; //假设有n行
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————
