Messagebox

[bothy]

Como Crear Los Menssagebox .. hacemos de cuenta que damos click en un boton de cerrar y nos pregunta desea salir "si" o "no" si damos si se sierra pero si damos no . no se sierra..

[Ñuño Martínez]

Como Crear Los Menssagebox .. hacemos de cuenta que damos click en un boton de cerrar y nos pregunta desea salir "si" o "no" si damos si se sierra pero si damos no . no se sierra..

Pues va a ser un poco difícil que sierre sin dientes. (Lo que sí me ha dejado matado es que primero lo escribes bien y luego mal :confused:)

Respecto al problema, tienes varias opciones pero te recomiendo que utilices "Application.MessageBox":
Function Application.MessageBox (Text, Caption: PChar; Flags: longint) : Integer;

Busca en la ayuda y en el foro (si miras al pie de esta misma página tienes dónde empezar), aunque aquí (http://delphiallimite.blogspot.com/2008/03/el-objeto-application.html) tienes una pequeña introducción.

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

Como Crear Los Menssagebox .. hacemos de cuenta que damos click en un boton de cerrar y nos pregunta desea salir "si" o "no" si damos si se sierra pero si damos no . no se sierra..

Básicamente piensa que los cuadros de Diálogo no realizan operaciones, las operaciones las has de realizar tú cuando se cierra el cuadro.
Estos lo únicos que hacen es devolver el valor pulsado por el usuario.
Dependiendo de ese valor tú haces unas cosas u otras.

Puedes hacer esto más fácil utilizando alguno de los muchos asistentes que hay para Delphi, por ejemplo los GExperts o CnWizards.

http://z.about.com/d/delphi/1/0/J/3/gexmsg.gif

http://delphi.about.com/library/graphics/010304_1.gif

Estos asistentes te generan el código necesario para mostrar los cuadros.

[bothy]

muy bien colegas problema resuelto...

hise esto


if Application.MessageBox( '¿Desea salir?', 'Catalogo Niños',
MB_ICONQUESTION OR MB_YESNO ) = ID_YES then

[Ñuño Martínez]

Bien hecho. :)