Delphi学习笔记(三)

2016-08-26 19:14:54来源:CSDN作者:YouPromise人点击

字体与窗口位置的随机变化

1.在system栏中选择时间控件加到form

2.对时间控件设置(label标签字体大小随机变化,form窗口位置随机变化,颜色随机变化)



   3.设置label标签大小随字体大小变化而变化

   4.设置窗口大小随标签大小变化而变化



选择结构if else举例


1.产生两个随机数,计算它们的值并验证





设置Edit1标签中光标的位置

 

    SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or ES_RIGHT);

 

ES_RIGHT设置在edit的右边,中间为ES_CENTER




循环语句

1.计算从1加到100的值

① While(条件)  do

Begin

循环体

End;




① Repeat

循环体

Until(条件);     (这里是条件不成立时执行循环体) 




① For 1  to  2  do  (是从值1加到值2的循环)

Begin

循环体

End




① For 1  downTo  2  do  (从值1减到值2的循环)

Begin

循环体

End







最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台