Lazarus

Other Languages => Spanish => Topic started by: RJH71 on November 26, 2019, 04:30:42 pm

Title: Mensaje emergentes
Post by: RJH71 on November 26, 2019, 04:30:42 pm
Saludos amigos del foro les traigo un incoveniente de principiante, estoy por terminar mis videos tutoriales de Lazarus y Free Pascal y hasta ahora no he aprendido como mandar un mensaje de "si no" "aceptar cancelar", por ejemplo quiero poner un mensaje para elminar un registro me podran ayudar y gracias.
Title: Re: Mensaje emergentes
Post by: lucamar on November 26, 2019, 04:58:15 pm
Code: Pascal  [Select]
  1. if MessageDlg('Borrar registro', '¿Seguro que desea borrar el registro?', mtConfirmation, mbYesNo, 0) = mrYes then
  2.   { Borrar el registro }

Mira en la ayuda para la unidad Dialogs (en lcl.chm) para ver más opciones y otros tipos de diálogos.
Title: Re: Mensaje emergentes
Post by: RJH71 on November 26, 2019, 05:07:42 pm
gracias por la respuesta lucamar.