Code: Detail

Criar+Action - (Portuguese)

Criar action em runtime

Criar action em runtime

Last update: 20/12/2013
 
N/A
N/A
N/A
3
 

procedure CriaAction;
begin
  //Partindo do pressuposto que você tenha colocado um componente ActionManager no form
  with TAction.Create(Self) do
    begin
      ActionList:= ActionManager1;
      Category:= 'Novos actions';
      Caption:= 'Meu action';
      Tag:= 0;
      OnExecute:= nil;
    end;
end;

Source:
 
Users who have marked this routine as a favorite
 
 
23/12/2013 14:06:29
Para identificar melhor, uma sugestão e alterar a primeira tag para delphi

23/12/2013 14:02:45
Delphi

21/12/2013 16:40:44
Ola amigo.

Qual linguagem de programacao e essa rotina?

 
The site ti4fun is not responsible for the content on sites for which you have external links

Articles, routines, tips, forums, blogs or any other content posted on ti4fun site is not tested and not validated, so you should test and validate any information collected on the ti4fun site before applying it to final use environment, such as example, production. the TI4FUN site is not responsible for quality or for any damages, direct, indirect or consequential, from use of any content posted by the authors in the site.

All content published on the ti4fun site is the responsibility of the author and do not necessarily express the views of the site ti4fun and its employees.