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

  • 主题发起人 主题发起人 chenhaobo
  • 开始时间 开始时间
C

chenhaobo

Unregistered / Unconfirmed
GUEST, unregistred user!
問題?//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屬性!
請問真確的代碼應該如何改寫呢?
 
应该用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;
 
ok!
thinks a lot!
 
后退
顶部