一些小技巧
1、将OpenDialog打开的图片显示到image控件:
//如果需要打开jpg图片,需要引用单元 uses jpeg;
image1.Picture.LoadFromFile(OpenDialog1.FileName);
2、产生随机数
//uses math; Randomize; //初始化随机种子,否则结果相同。 Randomrange(0,5); //随机产生0至4的随机数。 random(5); //随机产生0到4的随机数。
3、修改Delphi工具控件的默认字体:
注册表:
Delphi 6:
HKEY_CURRENT_USER\Software\Borland\Delphi\6.0
Delphi 7:
HKEY_CURRENT_USER\Software\Borland\Delphi\7.0
下增加一个名为“FormDesign”的项,再在这个项下面新建一个字符串值:
新建字串:DefaultFont ,值为: 宋体,9
[注意不是原来的Form Design 项,新建项没有空格]