潮
潮州人
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么样激活按钮,我三个按钮都放在ACTIONLIST中,在程序中想把这三个按钮激活,用下面的程序
procedure TForm1.Button4Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to ActionList1.ActionCount-1 do begin
TAction(ActionList1.Actions).Enabled:=true;
end;
end;
还是没有激活,但用这个就可以.
TAction(ActionList1.Actions).Visible:=false;
procedure TForm1.Button4Click(Sender: TObject);
var
i:Integer;
begin
for i:=0 to ActionList1.ActionCount-1 do begin
TAction(ActionList1.Actions).Enabled:=true;
end;
end;
还是没有激活,但用这个就可以.
TAction(ActionList1.Actions).Visible:=false;