Botão com menu?
boa tarde a todos, galera, precizo fazer um menu simples, tipo, quero que de um botao, ai clicar nele surge um menuzinho pequeno com 3 ou 4 opções, para baixo, algo simples, mas não tenho a menor idéia de como fazer isso, alguem sabe algum componente que faz isso?
Anderson
Anderson
Andersonscinfo
Curtidas 0
Melhor post
Marco Salles
23/03/2008
ja que o Site não permite a edição ... tenho que mandar outro post para
corrigit uma pequena falha no tópico anterior ...
amigo andersonscinfo , o delphi ja dá suporte a isto , basicamente sem nenhum esforço adicional
Insira um componente TPopupMenu ( 3 Componente da paleta Stardant)
De um Click com o Botão direito neste Componente e escolha a Opção
Menu Designer
Crie Quanto items de Menu que desejar .. e tb defina o evento onclick dos mesmos
Por ultimo no Objecto Inspectos na guia em Events do Coponente Button selecione Popup Menu e defina o PopupMenu1 ( que fora criado )
Agora Rode a Aplicação e perceba que ao clicar com O botão Direiro , aparece Logo abaixo do Botão o Popup definido anteriormente..
é recomendável não usar o [b:35a284a838]Botão Esquerdo [/b:35a284a838]para isto , deixando o mesmo , [b:35a284a838]Esquerdo[/b:35a284a838] para manipular outros eventos disponivéis .
corrigit uma pequena falha no tópico anterior ...
amigo andersonscinfo , o delphi ja dá suporte a isto , basicamente sem nenhum esforço adicional
Insira um componente TPopupMenu ( 3 Componente da paleta Stardant)
De um Click com o Botão direito neste Componente e escolha a Opção
Menu Designer
Crie Quanto items de Menu que desejar .. e tb defina o evento onclick dos mesmos
Por ultimo no Objecto Inspectos na guia em Events do Coponente Button selecione Popup Menu e defina o PopupMenu1 ( que fora criado )
Agora Rode a Aplicação e perceba que ao clicar com O botão Direiro , aparece Logo abaixo do Botão o Popup definido anteriormente..
é recomendável não usar o [b:35a284a838]Botão Esquerdo [/b:35a284a838]para isto , deixando o mesmo , [b:35a284a838]Esquerdo[/b:35a284a838] para manipular outros eventos disponivéis .
GOSTEI 1
Mais Respostas
Cyborg*
23/03/2008
você começou a programar a quanto tempo ?
é só abrir o component mainmenu da paleta standard
é só abrir o component mainmenu da paleta standard
GOSTEI 0
Marco Salles
23/03/2008
amigo andersonscinfo , o delphi ja dá suporte a isto , basicamente sem nenhum esforço adicional
Insira um componente TPopupMenu ( 3 Componente da paleta Stardant)
De um Click com o Botão direito neste Componente e escolha a Opção
Menu Designer
Crie Quanto items de Menu que desejar .. e tb defina o evento onclick dos mesmos
Por ultimo no Objecto Inspectos na guia em Events do Coponente Button selecione Popup Menu e defina o PopupMenu1 ( que fora criado )
Agora Rode a Aplicação e perceba que ao clicar com O botão Direiro , aparece Logo abaixo do Botão o Popup definido anteriormente..
é recomendável não usar o Botão direito para isto , deixando o mesmo direito para manipular outros eventos disponivéis .
Insira um componente TPopupMenu ( 3 Componente da paleta Stardant)
De um Click com o Botão direito neste Componente e escolha a Opção
Menu Designer
Crie Quanto items de Menu que desejar .. e tb defina o evento onclick dos mesmos
Por ultimo no Objecto Inspectos na guia em Events do Coponente Button selecione Popup Menu e defina o PopupMenu1 ( que fora criado )
Agora Rode a Aplicação e perceba que ao clicar com O botão Direiro , aparece Logo abaixo do Botão o Popup definido anteriormente..
é recomendável não usar o Botão direito para isto , deixando o mesmo direito para manipular outros eventos disponivéis .
GOSTEI 1
Andersonscinfo
23/03/2008
obrigado a todos...
Marco Salles, eu fiz desta forma, mas queria deixar o esquero para fazer isto neste botão, mas tudo bem, vou deixar o direito mesmo, muito obrigado pela antenção....
Anderson Junior
Marco Salles, eu fiz desta forma, mas queria deixar o esquero para fazer isto neste botão, mas tudo bem, vou deixar o direito mesmo, muito obrigado pela antenção....
Anderson Junior
GOSTEI 0
Marco Salles
23/03/2008
olha so ... eu estou de saida agora . Mas posso te deixar uma dica que acho que resolve
quando o Botão receber o Foco , altere as funçoes do Botão direito pelo esuqerdo
Pesquise sobre como fazer isto .. Tem Funçoes prontas para isto
Depois que o botão perder o Foco , volte com os Botões Originais
P:S Programe no evento on enter e On Exit do Referido Botão
P:S ha outra maneiras de fazer isto tb com o botão esuqerdo , mas como eu disse tô de saida
espero ter sido útil
quando o Botão receber o Foco , altere as funçoes do Botão direito pelo esuqerdo
Pesquise sobre como fazer isto .. Tem Funçoes prontas para isto
Depois que o botão perder o Foco , volte com os Botões Originais
P:S Programe no evento on enter e On Exit do Referido Botão
P:S ha outra maneiras de fazer isto tb com o botão esuqerdo , mas como eu disse tô de saida
espero ter sido útil
GOSTEI 0
Marco Salles
23/03/2008
a ultima dica , como eu disse , estava de saida e acabei sendo infeliz
efetura esta alteração não é uma boa , pq o usuário pode mudadr de janela , no momento que o Buttão tenha recebido o foco . Consequencia é que os Botões ficarão trocados , por tempo indeterminado .
Pensando melhor , voce pode simular o Pressionamento do Botão direito
ao clicar no Botão
Por exemplo , se voce usa Windows , pode usar a Api do Windows
Deu para entender ????
efetura esta alteração não é uma boa , pq o usuário pode mudadr de janela , no momento que o Buttão tenha recebido o foco . Consequencia é que os Botões ficarão trocados , por tempo indeterminado .
Pensando melhor , voce pode simular o Pressionamento do Botão direito
ao clicar no Botão
Por exemplo , se voce usa Windows , pode usar a Api do Windows
procedure TForm1.Button1Click(Sender: TObject); begin mouse_event( MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0 ); sleep(1); mouse_event( MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0 ); end;
Deu para entender ????
GOSTEI 0
Andersonscinfo
23/03/2008
sim, claro amigo, muito obrigado, você me ajudou muito....mãos a obra agora...
Anderson
Anderson
GOSTEI 0