PopUpMenu - Simples, mas já estou apelando!
02/02/2003
0
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:
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
Curtir tópico
+ 0
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é.
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é
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
Clique aqui para fazer login e interagir na Comunidade :)