Fórum Como criar menu popup em run-time #180755
08/09/2003
0
Preciso criar itens em um menu popup em tempo de execução de forma que ao clicar em um dos itens seja executada uma acao ou procedimento e que o item clicado seja identificado.
Obrigado
Obrigado
Marciohsilva
Curtir tópico
+ 0
Responder
Posts
08/09/2003
Motta
Um item de menu só faz sentido se houver um evento associado ´a ele.
Porque não os cria em desenho e deixa enable/visible conforme a situação ?
Porque não os cria em desenho e deixa enable/visible conforme a situação ?
Responder
Gostei + 0
08/09/2003
Marciohsilva
EU MESMO DESCOBRI:
var
Form1: TForm1;
conta : Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
Item : TMenuItem;
begin
inc(conta);
Item := TmenuItem.Create(puMenu);
Item.Tag := conta;
Item.onClick := nada1;
Item.Caption := ´teste ´ + inttostr(conta);
pUMenu.Items.Add(Item);
end;
procedure TForm1.Nada1(Sender: TObject);
begin
ShowMessage(´teste ´+ inttostr(TMenuItem(sender).Tag));
end;
var
Form1: TForm1;
conta : Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var
Item : TMenuItem;
begin
inc(conta);
Item := TmenuItem.Create(puMenu);
Item.Tag := conta;
Item.onClick := nada1;
Item.Caption := ´teste ´ + inttostr(conta);
pUMenu.Items.Add(Item);
end;
procedure TForm1.Nada1(Sender: TObject);
begin
ShowMessage(´teste ´+ inttostr(TMenuItem(sender).Tag));
end;
Responder
Gostei + 0
08/09/2003
Motta
Persiste a questão de ter uma lógica (evento) a ser ligado.
Tente assim , crie TActions e faça vinculos as seus itens de menu.
Tente assim , crie TActions e faça vinculos as seus itens de menu.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)