MainMenu
Tenho um menu e gostaria que de acordo com a opção escolhida eu pudesse incluir uma linha de comando.
Ex.:
Caso escolhesse Cadastrar Pedido e iria deixar visível 2 edits de um form, caso tivesse escolhido cadastrar Nota iria deixar estes edits invisiveis.
Como verificar qual opção do meu foi escolhida?
Ex.:
Caso escolhesse Cadastrar Pedido e iria deixar visível 2 edits de um form, caso tivesse escolhido cadastrar Nota iria deixar estes edits invisiveis.
Como verificar qual opção do meu foi escolhida?
Guima01
Curtidas 0
Respostas
Edilcimar
07/04/2005
cooloque o menu como visible = false na ativação do form
GOSTEI 0
Motta
07/04/2005
vc deve estar usando a mesma procedure
procedure TForm1.xxxx1Click(Sender: TObject);
begin
if Sender is TMenuItem then
ShowMessage(TMenuItem(Sender).Name);
end;
vc ainda pode usar a prop. Tag
procedure TForm1.xxxx1Click(Sender: TObject);
begin
if Sender is TMenuItem then
ShowMessage(TMenuItem(Sender).Name);
end;
vc ainda pode usar a prop. Tag
GOSTEI 0