Forum > Portuguese
Ajuda com TPopUpMenu
nightrider:
É a primeira vez que tento usar o TPopUpMenu e to com 1 problema, mas deve ser alguma barbeiragem minha.
No metodo Click de 1 TSpeedButton eu faco:
TPopUpMenu.PopUp;
O primeiro item deste popupmenu eu chamei de mnuCadFilial. No metodo Click do mnuCadFilial eu crio 1 Form e dou Show.
Não funciona do jeito que eu esperava. Aí, com ajuda de 1 arquivo texto fui tracando onde o fluxo passava.
Ele passa num write que tem antes de TPopUpMenu.PopUp e em seguida aparece o write que tem apos.
Apos ele mostrar o menu eu cliquei em mnuCadFilial e no comeco deste metodo coloquei 1 write que nao aparece no arquivo texto(quer dizer, nao deve ta executando mnuCaFilialClick)
Entao parece que qdo clico no botao que abre o popmenu este é exibido, mas o click no primeiro item do menu é ignorado.
// Click no primeiro item do menu
procedure TfrmMenuPrincipal.mnuCadTabFilialClick(Sender: TObject);
begin
writeln(a,'entrada click filial'); <----- Este write nao aparece
system.close(a); halt ;
if not Assigned(frmCadFilial) then
frmCadFilial := TfrmCadFilial.Create(Self);
frmCadFilial.Show;
end;
procedure TfrmMenuPrincipal.spbtnCadTabelasClick(Sender: TObject);
begin
writeln(a,'entrada popup'); system.flush(a); // <---- aparece este write
mnuCadTabelas.PopUp;
writeln(a,'saida popup'); system.flush(a); // <---- este write aparece em seguida
system.flush(a);
end;
(a aplicacao é fechada. parece dar um erro mas nao aparece nenhuma msg, só volta para o windows)
ALGUEM TERIA ALGUMA DICA?
felipemdc:
no Windows CE? O popup chega a abrir? Pode mostrar uns screenshots?
nightrider:
Tiro dado, bugiu deitado. Snapshots em anexo.
Pareces surpreso com o fato de o PopUpMenu aparecer em WinCE? To fazendo algo errado, meu amigo?
:-X
felipemdc:
Nenhum dos itens funciona ou só o primeiro que não funciona?
Me parece que um ComboBox faz exatamente o que você está tentando fazer.
nightrider:
1. Coloquei um stub no OnClick do segundo item e executou legal.
2. O problema do ComboBox, neste caso, é que nao fica com cara tipica de menu. Ou to errado?
TMenuItem funciona? Poderia pensar em usar...
Navigation
[0] Message Index
[#] Next page