Como criar menu popup em run-time
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
Curtidas 0
Respostas
Motta
08/09/2003
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 ?
GOSTEI 0
Marciohsilva
08/09/2003
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;
GOSTEI 0
Motta
08/09/2003
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.
GOSTEI 0