Recent

Author Topic: Mensaje emergentes  (Read 274 times)

RJH71

  • New Member
  • *
  • Posts: 12
Mensaje emergentes
« 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.

lucamar

  • Hero Member
  • *****
  • Posts: 2141
Re: Mensaje emergentes
« Reply #1 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.
Turbo Pascal 3 CP/M - Amstrad PCW 8256 (512 KB !!!) :P
Lazarus 2.0.4/2.0.6  - FPC 3.0.4 on:
(K|L)Ubuntu 12..16, Windows XP SP3, various DOSes.

RJH71

  • New Member
  • *
  • Posts: 12
Re: Mensaje emergentes
« Reply #2 on: November 26, 2019, 05:07:42 pm »
gracias por la respuesta lucamar.