Ver Mensaje Individual
  #2  
Antiguo 30-08-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola r1d2m3.

No sé si es lo que estás buscando, pero hice una prueba muy simple con este código y parece funcionar ok.
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with ActionList1 do
    Actions[Random(ActionCount)].OnExecute(Sender);
    // ó de otra forma
    //  ActionList1.Actions[0].OnExecute(Sender); 
    // ...
    //  ActionList1.Actions[ActionList1.ActionCount-1].OnExecute(Sender);
end;

Un índice [0] está haciendo referencia al primer TAction y [ActionCount -1] al último.
También es cierto, que es más fácil llamar directamente al nombre del procedimiento asociado...

Saludos

Última edición por ecfisa fecha: 30-08-2010 a las 08:19:02.
Responder Con Cita