[Resolvido] MessageBox

[Renanbg 1]

Tenho montado isso até o momento:

 

case MessageBox(Application.Handle, PChar('Atenção!'+#13+'O sistema localizou ' + inttostr(cont) + ' parcelas para esta nota.'+#13+''+#13+'Deseja excluir todas?'), 'Aviso', MB_YESNOCANCEL + MB_ICONQUESTION + MB_DEFBUTTON3) of
    idYes: ; //excluir todas
    idNo: ; //excluir apenas a selecionada
    IDCANCEL: exit;

Então baseado nisso, se eu clicar em SIM, devo executar essa sql:

 

Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.text:='delete from parcelas where id = '+dbedit1.text+'';
  Query1.ExecSQL;
  frmdm.tbparcelas.Refresh;

Como colocar isso no idyes?

[c(++)érebro 0]

idYes:

Begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.text:='delete from parcelas where id = '+dbedit1.text+'';

Query1.ExecSQL;

frmdm.tbparcelas.Refresh;

End;

[Renanbg 1]

Obrigado, deu certo.

 

abraços