怎么让button的caption竖着？

kenan1 2004-10-28 03:05:39

平时button的caption都是横着排列过去的，怎么让它竖着排列呢？
还有就是我想在一个click时间触发后比如2秒种后，触发一个事件，这个该怎么实现呢？菜鸟问题，大家不要见笑～

...全文

217 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

dongfanghui 2004-11-11

打赏
举报

不行啊，加#13#10不行，只显示两个方框。
在DBGRID里的TITLE中的Caption怎么换行显示啊？

smiler007 2004-11-01

打赏
举报

就加个#13就可以了....

g961681 2004-11-01

打赏
举报

sleep(2000)

todouwang 2004-11-01

打赏
举报

#13

lwglucky 2004-11-01

打赏
举报

#13#10

darkliu 2004-11-01

打赏
举报

学习

goodloop 2004-11-01

打赏
举报

:)和jinjazz一样～

陈祥xx 2004-11-01

打赏
举报

结了吧

sdqhlyf 2004-11-01

打赏
举报

#13#10回车换行。

loveghb 2004-11-01

打赏
举报

jinjazz(人雅的标记--落寞刺客)
正解！
：）

speedman2000 2004-10-28

打赏
举报

Button1.WordWrap :=true;
Button1.Caption :='b'+#13+'u'+#13+'t'+#13+'t'+#13+'o'+#13+'n'+#13+'1';
----------------
Timer1的Interval属性设为2000;
Timer1的Enabled属性设为false;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled :=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button2.Click;
Timer1.Enabled =false;
end;

jinjazz 2004-10-28

打赏
举报

Ttimer

jinjazz 2004-10-28

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := GetWindowLong(Button1.Handle, GWL_STYLE);
SetWindowLong(Button1.Handle, GWL_STYLE, i or BS_MULTILINE);
Button1.Caption := '我' + #13#10 + '要'+ #13#10 + '站'+ #13#10 + '起'+ #13#10 + '来';
end;