DELPHI控件具有多个属性的动态设置方法

本人初学DELPHI,遇到了个比较麻烦的问题就是没办法动态设置有多值的控件属性,在网上找了很多资料收获不大,经过自己研究,找到了一些方法,先记录下来以备使用.

1. 控件只有单一属性值设置方法:

form1.Align属性有: alNone,alLeft,alRight,alTop,.....等等,在编程中实现方法

方法1:  form1.Align:=alNone; 或 form1.Align:=alRight .....

方法2:

form1.Align:=TAlign(5); 等同于 form1.Align:=alClient;

2. 控件具有多属性时的设置方法:

方法:   form1.BorderIcons:=[biSystemMenu,biMaximize,biMinimize] ;  //可实现如上图的设置.

如果我要去掉某个值呢,那又如何实现动态设置这些属性呢?

增加属性方法:

form1.BorderIcons:=form1.BorderIcons+[biSystemMenu]; 或  form1.BorderIcons:=form1.BorderIcons+[TBorderIcon(0)];

去掉属性方法:

form1.BorderIcons:=form1.BorderIcons-[biSystemMenu]; 或  form1.BorderIcons:=form1.BorderIcons-[TBorderIcon(0)];

到这里,我发现只要改变一下 [TBorderIcon(0)] 数组中的数字,即可实现动态设置.该数组共有4个值分别对应不同的属性.如下图.

可以使用变量来代替.到此成功.