Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Incrementar procedimento para excluir


nsouza

Pergunta

Colegas,

o procedimento abaixo esta funcionando, mas gostaria de colocar a opção de Yes, No, Cancel

Tentei mas duplicou a mensagem.

SE Yes, arquiva o registro e depois deleta,

SE No, deleta o arquivo

Se Cancel, cancela a operação.

Poderiam incrementar este codigo para mim.

obrigado!

procedure TF_Condominio.Excluir1Click(Sender: TObject);

begin

if Application.MessageBox('Deseja arquivar antes de excluir excluir este registro?','Exclusão', +

MB_YESNO + MB_ICONQUESTION) = IDYES then

begin

arquivar;

DMConsultas.CDs_ListaMorador.Delete;

DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);

DMConsultas.CDs_ListaMorador.Refresh;

exit;

end

else

begin

DMConsultas.CDs_ListaMorador.Delete;

DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);

DMConsultas.CDs_ListaMorador.Refresh;

exit;

end;

end;

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

não entendi muito bem o que você deseja, mas para você fazer uma pergunta com 3 opções, você poderia fazer algo assim:

case MessageDlg('Pergunta que você quiser.',mtConfirmation,[mbYes,mbNo,mbCancel],0) of
                2:
                begin
                        showmessage('Selecionado botão Cancela');
                        ...comandos...
                end;
                6:
                begin
                        showmessage('Selecionado botão Sim');
                        ...comandos...
                end;
                7:
                begin
                        showmessage('Selecionado botão Não');
                        ...comandos...
                end;
        end;

obs: declare Dialogs na cláusula uses...

abraços !!!

Link para o comentário
Compartilhar em outros sites

  • 0

Ou você pode fazer assim:

Declare 2 Procedures:

Procedure YES;

Procedure NO;

em seguida o código delas:

procedure TForm1.YES;
begin
Arquivar;
DMConsultas.CDs_ListaMorador.Delete;
DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);
DMConsultas.CDs_ListaMorador.Refresh;
exit;
end;

procedure TForm1.NO;
begin
DMConsultas.CDs_ListaMorador.Delete;
DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);
DMConsultas.CDs_ListaMorador.Refresh;
exit;
end;
Após isso, na sua procedure TF_Condominio.Excluir1Click(Sender: TObject); insira o seguinte código:
Case application.MessageBox('Deseja arquivar antes de excluir excluir este registro?', 'Exclusão', mb_yesnocancel) of
IDNO : NO;
IDYES : YES;
IDCANCEL:;
end;

Só isso, rsrs, espero ter ajudado.

Abraços!

Link para o comentário
Compartilhar em outros sites

  • 0
Ou você pode fazer assim:

Declare 2 Procedures:

Procedure YES;

Procedure NO;

em seguida o código delas:

procedure TForm1.YES;
begin
Arquivar;
DMConsultas.CDs_ListaMorador.Delete;
DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);
DMConsultas.CDs_ListaMorador.Refresh;
exit;
end;

procedure TForm1.NO;
begin
DMConsultas.CDs_ListaMorador.Delete;
DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);
DMConsultas.CDs_ListaMorador.Refresh;
exit;
end;
Após isso, na sua procedure TF_Condominio.Excluir1Click(Sender: TObject); insira o seguinte código:
Case application.MessageBox('Deseja arquivar antes de excluir excluir este registro?', 'Exclusão', mb_yesnocancel) of
IDNO : NO;
IDYES : YES;
IDCANCEL:;
end;

Só isso, rsrs, espero ter ajudado.

Abraços!

(Resolvido) Incrementar procedimento para excluir

Obrigado aos dois colegas por ter ajudado.

No fim apliquei o exemplo do Douglas.

Link para o comentário
Compartilhar em outros sites

  • 0

O Jeito mais facil, e ainda traduzindo as opçoes do messageDlg para portugues (para ficar Yes= Sim No=Não e Cancel=Cancelar)

var mensagem : TForm;

begin

//MOSTRA O MESSAGEDLG (TRADUZIDO PARA PORTUGES)

Mensagem:=CreateMessageDialog(' MENSAGEM ',MtConfirmation,[MbYes,MbNo]);

Mensagem.Caption:='TITULO';

TButton(Mensagem.FindComponent('Yes')).Caption:='Sim';

TButton(Mensagem.FindComponent('No')).Caption:='Não';

Mensagem.ShowModal;

if Mensagem.ModalResult=MrYes then begin

Arquivar;

DMConsultas.CDs_ListaMorador.Delete;

DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);

DMConsultas.CDs_ListaMorador.Refresh;

exit;

end;

if Mensagem.ModalResult=MrNo then begin

DMConsultas.CDs_ListaMorador.Delete;

DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);

DMConsultas.CDs_ListaMorador.Refresh;

exit;

end;

end;

para adicionar o cancelar as opçoes seria só alterar MtConfirmation,[MbYes,MbNo] para MtConfirmation,[MbYes,MbNo,MBCancel]

Editado por Frega
Link para o comentário
Compartilhar em outros sites

  • 0
O Jeito mais facil, e ainda traduzindo as opçoes do messageDlg para portugues (para ficar Yes= Sim No=Não e Cancel=Cancelar)

var mensagem : TForm;

begin

//MOSTRA O MESSAGEDLG (TRADUZIDO PARA PORTUGES)

Mensagem:=CreateMessageDialog(' MENSAGEM ',MtConfirmation,[MbYes,MbNo]);

Mensagem.Caption:='TITULO';

TButton(Mensagem.FindComponent('Yes')).Caption:='Sim';

TButton(Mensagem.FindComponent('No')).Caption:='Não';

Mensagem.ShowModal;

if Mensagem.ModalResult=MrYes then begin

Arquivar;

DMConsultas.CDs_ListaMorador.Delete;

DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);

DMConsultas.CDs_ListaMorador.Refresh;

exit;

end;

if Mensagem.ModalResult=MrNo then begin

DMConsultas.CDs_ListaMorador.Delete;

DMConsultas.CDs_ListaMorador.ApplyUpdates(-1);

DMConsultas.CDs_ListaMorador.Refresh;

exit;

end;

end;

para adicionar o cancelar as opçoes seria só alterar MtConfirmation,[MbYes,MbNo] para MtConfirmation,[MbYes,MbNo,MBCancel]

(Resolvido) Incrementar procedimento para excluir

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...