[Lazarus-es] Poner por defecto el segundo boton.

Rafael Bidegain r.bidegain en gmail.com
Lun Dic 28 17:46:38 CET 2009


Hola Ismael

El día 28 de diciembre de 2009 12:19, Ismael L. Donis Garc?a
<ismael en citricos.co.cu> escribió:
> Ante todo saludos, deseándole que pasen un feliz fin de año junto a toda su
> familia.
Muchas gracias, lo mismo para vos y tu familia.

>
> He tratado por un 1 millón de vía y no logro poner por defecto el segundo
> botón en la siguiente opción:
ok.
intenta con esto.

Application.MessageBox(
'Si no configuras la ubicación de la base ded atos el programa no
podrá ser ejecutado.'+Chr(13)+Chr(13)+
'La deseas configurar ahora?.',
pchar(Form1.Name),
MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2)

tenés que incluir en la clausula uses LCLType;

la constante MB_DEFBUTTON2 está definida en lcltype.pp

MB_DEFBUTTON1 hace que por defecto sea el boton 1
MB_DEFBUTTON2 hace que por defecto sea el boton 2
MB_DEFBUTTON3 hace que por defecto sea el boton 3
MB_DEFBUTTON4 hace que por defecto sea el boton 4


solo hay 4 definiciones y son estas.
  MB_DEFBUTTON1 = $00000000;
  MB_DEFBUTTON2 = $00000100;
  MB_DEFBUTTON3 = $00000200;
  MB_DEFBUTTON4 = $00000300;


espero que te sea útil


-- 
Rafael Bidegain

Ya que los cuerdos no hablan, hablará el loco.
(The Fool, Padraic Pearse)

# divertite programando
# http://rubytutorial.wikidot.com/introduccion




More information about the Lazarus-es mailing list