Recent

« previous next »
Pages: [1]

Author Topic: Mensaje emergentes  (Read 1753 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.
Logged

lucamar

  • Hero Member
  • *****
  • Posts: 4219
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.
Logged
Turbo Pascal 3 CP/M - Amstrad PCW 8256 (512 KB !!!) :P
Lazarus/FPC 2.0.8/3.0.4 & 2.0.12/3.2.0 - 32/64 bits on:
(K|L|X)Ubuntu 12..18, Windows XP, 7, 10 and 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.
Logged
Pages: [1]
« previous next »
 

TinyPortal © 2005-2018