Jump to content
Fórum Script Brasil
  • 0

(Resolvido) Incrementar procedimento para excluir


nsouza
 Share

Question

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 to comment
Share on other sites

5 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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]

Edited by Frega
Link to comment
Share on other 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      149.6k
    • Total Posts
      646.1k
×
×
  • Create New...