Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Crear Message Dialog personalizado (https://www.clubdelphi.com/foros/showthread.php?t=61517)

Alexis De la Cr 11-11-2008 05:12:39

Crear Message Dialog personalizado
 
Estimados Colegas Foreros:

Alguien sabe las caracteristicas y propiedades que tiene un messageDlg?

Intento crear un formulario personalizado que sustituya al MessageDlg, que viene con el delphi. lo que no tengo idea son sus caracteristicas es decir, si es un formulario normal, de aquellos que son showmodal, los botones llevan un modalresult especifico, pues basicamente requiero el siguiente codigo.

Código Delphi [-]
if MessageDlg('Esta usted seguro de Ejecutar la Opcion?',mtConfirmation,[mbYes,mbNo],0)=mrYES then
                    begin
                    
                    end;

Gracias de Antemano

Delphius 11-11-2008 07:52:34

Hola Alexis De la Cr,
¿Podrías explicar con mayores detalles lo que buscas hacer?
Al menos yo, no termino de comprender si lo que deseas hacer es un form que simule un cuadro de díalogo, o por el contrario, necesitas ayuda de como emplear la función comentada.:confused:

Saludos,

roman 11-11-2008 16:55:45

La función MessageDlg, crea un formulario del tipo TMessageForm que está declarado en la unidad Dialogs. Todo el ajuste de propiedades se lleva a cabo en la función CreateMessageDialog de la misma unidad. Puedes examinar el código tanto de esta función como el del formulario para ver cómo lo implementan.

Pero al final de cuentas no es sino un descendiente de TForm, o sea, un formulario normalito.

// Saludos

Alexis De la Cr 11-11-2008 21:45:50

Gracias Roman, fijate que ya pude solucionar este detallito, aunque no se si sea la forma mas elegante, pero a mi me funciono

yo utilizo plaicaciones MDI, y ahi era mi duda.

cree un form normalito, le coloque todo lo que queria, tamaño, mensajes etc.
le agregue dos botones, uno con captio si y modalresult mrYes, y el otro con caption No y modalresul mrNo

y los mando a llamar de la siguiente forma

Código Delphi [-]
formmensaje.NxLabel1.Caption:='Monto del Enganche';
if FormMensaje.ShowModal=mrYES then
   begin

   end;

Basicamente lo que deseaba era 2 cosas:

1.- pedirle un valor numerico(cantidad de dinero) al operador del sistema, solo que con input query te aceptaba cualquier valor alfanumerico, y eso pues no era lo que yo deseaba, por eso sustitui un edit normal por uno que solo acepta numeros.

2.- la otra era esperar por esa respuesta.

y finalmente lo consegui de esa manera.


Te agradezco roman tu respuesta. De todos modos voy a echarle un vistazo a las unidades que mencionas.



Saludos!

Alexis De la Cr 11-11-2008 22:28:07

Delphius, te agrazdezco tu tiempo. en el post anterior explique lo que deseaba. muchas gracias

Delphius 11-11-2008 23:41:09

Cita:

Empezado por Alexis De la Cr (Mensaje 325378)
1.- pedirle un valor numerico(cantidad de dinero) al operador del sistema, solo que con input query te aceptaba cualquier valor alfanumerico, y eso pues no era lo que yo deseaba, por eso sustitui un edit normal por uno que solo acepta numeros.

Claro que se puede tener un InputBox que acepte números. Es que está "escondido". Añade a uses la unidad QDialogs. Ahora, estará a tu disposición tres tipos de InputBox:

1. Para strings
2. Para enteros
3. Para reales

En este hilo doy un ejemplo de como emplear la segunda opción.

Ahora puedes, si te "molesta" un form para sólo pedir un dato. En realidad es cuestiones de gustos y necesidades. El form es útil cuando son muchos datos y se necesita de un mayor control de los datos; además de añadir un efecto visual.

Saludos,


La franja horaria es GMT +2. Ahora son las 18:32:16.

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