| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
maboxis
Membro Junior
Registrado: Quarta-Feira, 13 de Abril de 2011
Mensagens: 333
|
 Enviada: Dom Jul 21, 2013 8:38 pm Assunto: Ajuda com verificação de campo em branco. (RESOLVIDO) |
 |
|
Boa noite, estou com a seguinte dúvida:
Tenho uma FORM e no mesmo tenho um MEMO denominado MEMO1.
Sempre quando o usuário clica no botão Salvar antes de iniciar a sequencia de gravação ele verifica se o MEMO foi preenchido caso contrário ele mostra uma mensagem dizendo que é obrigatório o preenchimento.
Até então eu consegui fazer, só que após amostrar a mensagem eu clico em OK e o meu FORM fecha, obrigando-me a abri-lo novamente.
Como poderia resolver isso? Segue o meu código abaixo:
| Código: | begin
if (Memo1.Text = '') then
begin
Messagedlg('Falta preencher o campo "Teste" !', mtInformation, [mbOk], 0);
if Memo1.CanFocus then
Memo1.SetFocus;
exit;
end; |
Eu uso os seguintes componentes:
1 - SqlConnection
1 - SQLQuery
1 - DataSetProvider
1 - ClientDataSet
1 - DataSource
E o banco é FIREBIRD 2.5
Agradeço a todos desde já!
Editado pela última vez por maboxis em Qua Jul 24, 2013 1:03 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
mhgsimoes
Aprendiz
Registrado: Sexta-Feira, 7 de Dezembro de 2007
Mensagens: 142
Localização: Belo Horizonte / MG
|
| Enviada: Seg Jul 22, 2013 9:36 am Assunto: |
|
|
Amigo, em que momento do código você está fazendo esta validação? Em que evento?
Pelo visto, você está exibindo a mensagem de preenchimento obrigatório, mas não está parando o processo.
Tente substituir o "Exit" por "SysUtils.Abort" e veja se lhe atende. |
|
| Voltar ao Topo |
|
|
Batera
Colaborador
Registrado: Quarta-Feira, 23 de Julho de 2008
Mensagens: 4899
Localização: Maringá
|
| Enviada: Seg Jul 22, 2013 10:04 am Assunto: |
|
|
| maboxis, como está a propriedade ModalResult desse botão? |
|
| Voltar ao Topo |
|
|
maboxis
Membro Junior
Registrado: Quarta-Feira, 13 de Abril de 2011
Mensagens: 333
|
| Enviada: Ter Jul 23, 2013 8:21 pm Assunto: |
|
|
| Batera escreveu: | | maboxis, como está a propriedade ModalResult desse botão? |
Respondendo ao amigo mhgsimoes:
Olá, então eu boto meu código no evento OnClick do botão, e ele está assim:
| Código: | procedure TFormSolicitacao.BtnSolicitarClick(Sender: TObject);
begin
if (EdtSolicitante.Text = '') then //Verifica se o campo "Usuário" foi preenchido
begin
Messagedlg('O campo "Solicitante" deve ser preenchido!', mtInformation, [mbOk], 0);
if EdtSolicitante.CanFocus then
EdtSolicitante.SetFocus;
Exit;
end; |
Respondendo ao amigo Batera:
Olá, a propriedade do ModalResult está como "MrNone".
O que será que está ocasionando o fechamento do form?
Desde já agradeço pela atenção. |
|
| Voltar ao Topo |
|
|
Netrunner
Aprendiz
Registrado: Domingo, 7 de Julho de 2013
Mensagens: 236
|
| Enviada: Ter Jul 23, 2013 9:53 pm Assunto: |
|
|
| Use Abort; no Lugar do Exit; |
|
| Voltar ao Topo |
|
|
maboxis
Membro Junior
Registrado: Quarta-Feira, 13 de Abril de 2011
Mensagens: 333
|
| Enviada: Qua Jul 24, 2013 2:50 am Assunto: |
|
|
| Netrunner escreveu: | | Use Abort; no Lugar do Exit; |
Galera, consegui resolver, meu ModalResult estava em MrOk, nem lembro de ter botar porém mudei e deixei como MrNone e funcionou.
Obrigado mais uma vez pela força. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
