PDA

Ver la Versión Completa : Cómo evaluar un MessageBox


drakkon
14-06-2007, 07:23:07
Qué tal compañeros, tengo una duda. Les agradecería si me pudieran ayudar. Estoy utilizando un MessageBox:


if (Application.MessageBox('¿Deseas guardar los cambios realizados al registro actual?','Confirmación',MB_ICONQUESTION OR MB_YESNOCANCEL))= "¿?"


Pero no se cómo se evalúan los tres posibles casos (YES, NO, CANCEL). Y necesito hacer esto para a partir de ellos realizar distintas acciones. Podría alguien ayudarme por favor ??

Delphius
14-06-2007, 07:34:42
Para resolver esto declara una variable del tipo integer y almacena el valor dentro de ella, luego la comparas con cada una de las opciones.
Es decir:

Rta := MessageBox(0, '¿Desea guardar los cambios?', 'Confirmación', MB_ICONQUESTION or MB_YESNOCANCEL);
case Rta of
IDYES: bla bla bla
IDNO: bla bla bla
IDCANCEL: bla bla bla
end;

Saludos,

drakkon
14-06-2007, 08:14:18
Gracias por tu ayuda, amigo. Ya pude resolver mi problema.:D