Capturar los botones de los cuadro de dialogo

[GerTorresM]

Hola a todos:


la situación de hoy es la siguiente:

Tengo un formulacion que alimenta valores a una tabla, en este formulario los usuario pueden manejar la configuración de una serie de datos, ahora existe en el formulario la posiblidad de crear en forma másiva datos, es decir para muchos clientes se aplican las mismas tarifas; pero como existe esa posiblidad también deseo habilitar la posiblidad de sobreescribir un grupo de registros de acuerdo a los requerimientos del cliente para eso planteo lo siguiente

Código Delphi [-] if not EsEdicionTotal then if MessageDlg('La información correspondiente al rango de consumo ya se encuentra creada. '+ #13 + '¿Desea Modificarla?',MtConfirmation, [mbYesToAll, MbNo],0) = MrYesToAll then EsEdicionTotal:= True else if MrYes then Showmessage('ActualizarCampo');


Bien ahora la pregunta concreto, deseo poder evalura la respuesta enviada en el díalogo para saber si sobreescribo tan solo el registro útilizado, es decir si para el caso el usuario presiona si a todo, pues no se continua confirmando y sobreescribe, en caso contrario solo si, sobreescribe el último registro y en caso de no, puesa sale.


Como lo lograrlo ??

Gracías de antemano



gertorresm
Colombia

[rgstuamigo]

Chequea éste codigo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 Case MessageDlg('La información correspondiente al rango de consumo ya se encuentra creada. '+
                 #13 + '¿Desea Modificarla?',MtConfirmation, [mbYesToAll, MbNo],0) of
  mrYesToAll :ShowMessage('Se presiono "Si a Todo"');
  mrNo       :ShowMessage('Se presiono "No"');
 end;
end;

Saludos...

[GerTorresM]

Muchas gracias por tu respuesta era lo que estaba buscando