如何動態獲取Actionlist.Actions并設置可用性?(50分)

C

chenhaobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-25

• #1

問題?//ActionList.Actions//
Procedure TfrmMain.ExecRights;
var
sname : String;
i : integer;
begin
sname := PubQy.FieldByName('RObject').AsString;
for i := 0 to ActionList1.ComponentCount do
if ActionList1.Actions.Name=sname then
TAction(ActionList1.Actions).Enabled := true;// 動態設定出錯???????
end;
/////可惜ActionList.Actions無enabled屬性!
請問真確的代碼應該如何改寫呢?

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-25

• #2

应该用ActionList1.ActionCount而不是ActionList1.ComponentCount
而且应该这么写
for i := 0 to ActionList1.ActionCount - 1 do
if ActionList1.Actions.Name=sname then
begin
TAction(ActionList1.Actions).Enabled := true;
Break;
end;

 

C

chenhaobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-25

• #3

ok!
thinks a lot!