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

Ismael L. Donis Garc?a ismael en citricos.co.cu
Lun Dic 28 20:52:20 CET 2009


LCLType trabaja en Linux también?

GRACIAS a todos lo que han contestado
=========
¦¦ ISMAEL ¦¦
=========
"Oír o leer sin reflexionar es una ocupación inútil".
               Confucio (551-479 a. C.); filósofo chino.

----- Mensaje original ----- 
De: "Rafael Bidegain" <r.bidegain en gmail.com>
Para: "Spanish version of Lazarus List" 
<lazarus-es en lists.lazarus.freepascal.org>
Enviado: lunes, 28 de diciembre de 2009 10:46
Asunto: Re: [Lazarus-es] Poner por defecto el segundo boton.


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

_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es






More information about the Lazarus-es mailing list