[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