Delphi学习笔记（三）

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

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；