Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Ayuda para mostrar un mensaje (https://www.clubdelphi.com/foros/showthread.php?t=91238)

jose001 08-12-2016 23:26:30

Ayuda para mostrar un mensaje
 
Hola buenas tardes estoy trabajando con una aplicacion desarrollada en delphi 2010
lo que necesito es realizar una eliminacion de una grilla la cual tiene varios datos que corresponden a 2 tablas, Lo que quiero es al apretar el boton eliminar mostrar un mensaje que diga" Desea eliminar todo el registro de este cliente o solo su puesto de trabajo" y en los botones esto me digan "Todo,Solo puesto,Cancelar" y segun el boton que clikee realizar alguna accion
e buscado mucho y no encontre una forma para cambiar los mensajes de los botones, No se si esto es posible en delphi, alguna ayuda ? gracias

Casimiro Noteví 09-12-2016 00:43:32

¿Te refieres al texto de los botones?

roman 09-12-2016 00:49:49

Cita:

Empezado por jose001 (Mensaje 511627)
y en los botones esto me digan "Todo,Solo puesto,Cancelar" y segun el boton que clikee realizar alguna accion

Pues mira, podrías crear tu propio cuadro de diálogo con un formulario y los botones exactos que deseas. O bien, usar este código para salir al paso:

Código Delphi [-]
var
  Dialog: TForm;

begin
  Dialog := CreateMessageDialog(
    '¿Desea eliminar todo el registro de este cliente o solo su puesto de trabajo?',
    mtWarning,
    [mbYes, mbNo, mbCancel]);

  TButton(Dialog.Controls[2]).Caption := 'Todo';
  TButton(Dialog.Controls[3]).Caption := 'Sólo puesto';
  TButton(Dialog.Controls[4]).Caption := 'Cancelar';

  try
    case Dialog.ShowModal of
      mrYes: ShowMessage('Escogió todo');
      mrNo: ShowMessage('Escogió sólo puesto');
      mrCancel: ShowMessage('Escogió cancelar');
    end;
  finally
    Dialog.Free;
  end;
end;

LineComment Saludos


La franja horaria es GMT +2. Ahora son las 01:11:16.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi