| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
Minotti
Novato
Registrado: Sexta-Feira, 19 de Abril de 2013
Mensagens: 36
|
 Enviada: Sex Jun 07, 2013 6:59 pm Assunto: Formulario |
 |
|
Boa noite pessoal.
Eis me aqui novamente.
O problema é o seguinte, tem um form de "vendas", dai tenho outro form de "atenção". Eu estou tentando fazer o seguinte, quando eu clicar pra fechar o form de vendas ele abre o form atenção. Até ai beleza, só que agora me surgiu 2 necessidades, quando eu fizer isso eu quero que nao seja possivel mover pra outro lugar enquanto eu nao fechar o form "atenção". Beleza isso é a 1 duvida, a segunda é que no form atenção eu tenho 2 botoes, 1 - sim e 2 - nao, quando eu clicar em "Nao" ele fecha o form "atenção" e volta para o form "vendas" e quando eu clicar em "Sim" ele fecha os dois form, atenção e vendas. Espero ter deixado bem explicito minha necessidade.
Att.
Marlon Minotti |
|
| Voltar ao Topo |
|
 |
cyberdisk
Colaborador
Registrado: Domingo, 4 de Julho de 2010
Mensagens: 2391
Localização: São José dos Campos - SP
|
| Enviada: Sex Jun 07, 2013 7:24 pm Assunto: |
|
|
eu quero que nao seja possivel mover pra outro lugar enquanto eu nao fechar o form "atenção"
não mover ou não fechar ?
botao = Não
FormAtencao.Close;
FormVendas.showmodal;
botão = Sim
FormAtencao.Close;
FormVendas.Close;
abraço
_________________
O conhecimento abre muitas portas |
|
| Voltar ao Topo |
|
|
Minotti
Novato
Registrado: Sexta-Feira, 19 de Abril de 2013
Mensagens: 36
|
| Enviada: Sáb Jun 08, 2013 9:07 am Assunto: |
|
|
| cyberdisk escreveu: | eu quero que nao seja possivel mover pra outro lugar enquanto eu nao fechar o form "atenção"
não mover ou não fechar ?
botao = Não
FormAtencao.Close;
FormVendas.showmodal;
botão = Sim
FormAtencao.Close;
FormVendas.Close;
abraço |
Seguinte, quando eu clicar em fechar vai abrir a tela de "atenção", com duas opções, Sim ou Nao, eu quero que enquanto eu nao fizer uma ação a janela de atenção nao me deixe ir para outra janela, tipo aquelas janelas de erros do windows que ficam paradas sobre tudo até que voce feche elas.
E esse código que voce me passou ai esta dando erro. Esse é meu código:
procedure TfrmAtencaoVendas.butNaoClick(Sender: TObject);
begin
frmAtencaoVendas.Close;
frmLancVendas.ShowModal;
end;
procedure TfrmAtencaoVendas.butSimClick(Sender: TObject);
begin
frmAtencaoVendas.Close;
frmLancVendas.Close;
end; |
|
| Voltar ao Topo |
|
|
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Sáb Jun 08, 2013 10:32 am Assunto: |
|
|
Acho que eu entendi o que você quer fazer...
No evento OnCloseQuery do FormVendas, coloque este código:
| Código: | FormAtencao.ShowModal;
CanClose := FormAtencao.ModalResult = mrClose; |
Agora, no formulário de atenção, coloque esses códigos para os respecitvos botões:
| Código: | // botão 'Sim':
Close;
ModalResult := mrClose;
//botão 'Não':
Close; |
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
