如何编程访问某一控件的某一属性的所有可选值－－急(50分)

M

mo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #1

如何编程访问某一控件的某一属性的所有可选值
例如：我要访问Button1的BiDiMode属性的所有可选值，然后把这些可选值放入ComboBox1.Items中，
以便用户通过ComboBox1来选择

 

M

mo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #2

试过GetEnumProp(Button1,'BiDiMode')，
但只能得到它的一个值，我是要所有可选值
(bdLeftToRight,bdRightToLeft,bdRightToLeftNoAlign,bdRightToLeftReadingOnly）

 

S

Shuzi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #3

可以用Low(x)和High(x)函数循环处理

 

M

mo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #4

TO: Shuzi
能否详细点？

 

X

xuxincheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #5

TBiDiMode是枚举类型,可以这样处理:
uses
TypInfo
例程如下:
procedure TForm1.Button1Click(Sender: TObject);
var
BDM: TBiDiMode;
begin
for BDM := Low(TBiDiMode) to High(TBiDiMode) do
Memo1.Lines.Add(GetEnumName(TypeInfo(TBiDiMode), ord(BDM)));
end;

end.

 

S

Shuzi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #6

同意楼上
当然这种方法只能处理序数类型的（Integer，枚举等），其它类型还是得想其它办法，
比如TColor什么的。

 

M

mo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #7

多人接受答案了。

 

M

maplesw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #8

同意楼上，学习！