PopUpMenu - Simples, mas já estou apelando!

02/02/2003

2

Meus caros amigos de forum, o que eu quero, é uma calma e simples resposta de como eu adiciono um novo menu no PopUpMenu.
Por exemplo: eu tenho um form(claro!), um edit, um PopUpMenu e um Button. Quando o user clicar no Button irá adicionar um Item no PopUpMenu. É simplesmente isso! Mas eu queria mesmo é do seguinte tipo: quando adicionar, irá adicionar junto com o nome um ícone, selecionado no IMageList e uma linha de comando, que quando clicado executará esta linha.

Muito, mas muito obrigado pela paciência e calma.

:evil: :evil: :twisted: :evil: :evil:


Fosknet

Fosknet

Responder

Posts

02/02/2003

Navoid

seguinte cara eu sei como fazer isso, mas hoje não tenho como te passar isso por que o código está na empresa onde trabalho

mas amanhã (segunda) te passo o código.

até.


Responder

03/02/2003

Navoid

cara o código abaixo funciona
não esqueça de declarar as funções
******
procedure tform1.menuclick(sender: tobject);
begin
// código a ser executado qdo o menu for clicado;
end;

procedure tform1.inseremenu;
var
item: tmenuitem;
begin
item:= tmenuitem.create(self);
item.caption:= ´este é un novo item de menu´;
item.imageindex:= 1;
item.onclick:= menuclick;
item.enabled:= true;
item.checked:= false;
popupmenu1.items.add(item);
end;
***
até


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários,
consulte nossa política de privacidade.

Aceitar