(Resolvido) Incrementar procedimento para excluir

[nsouza]

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;

[Daniel Sanches]

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 !!!

[Douglas Soares]

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!

[nsouza]

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.

[Frega]

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 Agosto 10, 2009 por Frega

[nsouza]

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