Buscar un flag concreto en una combinación de ellos (MessageBox)

[[Al González]]

Hola Germán.

El operador In sólo trabaja con conjuntos.

AFlags es de tipo numero entero, por lo cual hay que recurrir a una típica verificación de bits:

Código Delphi [-]
Icono := AFlags And mb_IconMask;  // Obtenemos la bandera de icono contenida en AFlags

Nota que la API de Windows incluye la constante MB_ICONMASK (máscara de bits de posibles iconos), fundamentalmente con ese propósito.

Un saludo.

[Neftali [Germán.Estévez]]

Hola Al.
Gracias por contestar. Ya sabía yo que para tí esto sería fácil...

Empezado por Al González

El operador In sólo trabaja con conjuntos.

Si, si,... Era para poner un ejemplo de cómo podría ser. Se que no se puede utilizar en ese contexto.

Empezado por Al González

AFlags es de tipo numero entero, por lo cual hay que recurrir a una típica verificación de bits...

Lo pruebo...

Gracias.

[Caminante]

Empezado por Neftali

Hola Al.
Ya sabía yo que para tí esto sería fácil...

Yo tambien lo sabia

[[Al González]]

Empezado por Caminante

Yo tambien lo sabia

Varios halagos en pocos días; mi cumpleaños fue hace tiempo. Sospecho que ya apareció el verdadero asesino de Kennedy.

[[Al González]]

Aprovechando el tema. Tal vez quieras echarle un vistazo a algunas funciones de GH Freebrary que van por esta línea.

Por ejemplo:

Código Delphi [-]
  If ghShowMsg ('Confirmar', '¿Desea guardar el archivo?', mb_YesNo) = IDYes Then

presentará una ventana con el icono MB_ICONQUESTION, mientras que

Código Delphi [-]
  If ghShowMsg ('Confirmar', '¡No ha salvado los cambios! ¿Guardar?', mb_YesNo) = IDYes Then

presentará una ventana con el icono MB_ICONEXCLAMATION.

ghShowMsg verifica si el mensaje de texto mismo contiene el signo de exclamación o el signo de interrogación para determinar el icono a usar.

La sugerencia es por si te sirve este material para enriquecer las ideas de lo que estás haciendo.

Un cordial saludo.

Al.