In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

TMessageBox

Foro de Xailer profesional en español
Responder
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

TMessageBox

Mensaje por Xevi »

Ahora no se puede crear CajasDiálogo con un sólo botón d eOK ???
WITH OBJECT oMessageBox1 := TMessageBox():New()
:cTitle := "TITULO"
:cText := "Texto"
:nStyle := mbOk
:Create()
END
Se crean DOS BOTONES con "SI" "NO"
¿y Eso????
Un Saludo,
Xevi.
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

TMessageBox

Mensaje por jfgimenez »

This is a multi-part message in MIME format.
------=_NextPart_000_0045_01C62652.A7AFFC20
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0046_01C62652.A7AFFC20"
------=_NextPart_001_0046_01C62652.A7AFFC20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi,
> Ahora no se puede crear CajasDi=E1logo con un s=F3lo bot=F3n d eOK ???
>=20
> WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
> :cTitle :=3D "TITULO"
> :cText :=3D "Texto"
> :nStyle :=3D mbOk
> :Create()
> END
>=20
>=20
> Se crean DOS BOTONES con "SI" "NO"
Acabo de probar exactamente este c=F3digo:
WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
:cTitle :=3D "TITULO"
:cText :=3D "Texto"
:nStyle :=3D mbOk
:Run()
END
y sale esto:
Por favor, env=EDame un ejemplo que salga mal.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
------=_NextPart_001_0046_01C62652.A7AFFC20
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2180" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY>
<DIV><FONT face=3DArial size=3D2>Xevi,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>> Ahora no se puede crear =
CajasDi=E1logo con un=20
s=F3lo bot=F3n d eOK ???<BR>> <BR>>ÂÂ WITH OBJECT =
oMessageBox1 :=3D=20
TMessageBox():New()<BR> >ÂÂÂÂÂ=2 0
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR> >ÂÂÂÂÂ=2 0
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR> >ÂÂÂÂÂ=2 0
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>>ÂÂÂÂÂ :Create()<BR>>ÂÂ =
END<BR>> <BR>> <BR>> Se crean DOS BOTONES con "SI"=20
"NO"<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Acabo de probar exactamente este=20
c=F3digo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT oMessageBox1 =
:=3D=20
TMessageBox():New()<BR>ÂÂÂÂÂ=20
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR>ÂÂÂÂÂ=20
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR>ÂÂÂÂÂ=20
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>ÂÂÂÂÂ :Run()<BR>ÂÂ=20
END<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>y sale esto:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0=20
src=3D"cid:004001c6264a$45d63760$[email=02001aac@local]02001aac@local[/email]" align=3Dbaseline =
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV><FONT face=3DArial =
size=3D2>
<DIV>Por favor, env=EDame un ejemplo que salga mal.</DIV>
<DIV>Â</DIV>
<DIV><BR>-- <BR>Un saludo,</DIV>
<DIV>Â</DIV>
<DIV>Jos=E9 F. Gim=E9nez</FONT></DIV></BODY></HTML>
------=_NextPart_001_0046_01C62652.A7AFFC20--
------=_NextPart_000_0045_01C62652.A7AFFC20
Content-Type: image/png;
name="msgbox.png"
Content-Transfer-Encoding: base64
Content-ID: <004001c6264a$45d63760$[email=02001aac@local]02001aac@local[/email]>
iVBORw0KGgoAAAANSUhEUgAAAGgAAABrCAIAAAAU6lBYAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAEcBJREFU
eF7tnAtQVEe6xxtGQLOV3N1oLBNdXd/GV8C3Ir7fgIIIgg9EFCTGRzTuI9mY 1CZlZfPwVrxJbnbd
3ZRUdr3XRGJImV03D2tN7U1yNxoQFdHgCsx7QBhA3q/77/Od6TnMDHDOIK7h nql/DX36fKdP92++
7q+7zwwBZfYCpngNSK0JCDAgo60phGcbAuSTwX15OsTA+hhYcwveAwyGtpY2 1tzKAgNZIGOtrlKa
caD+xe/V9SugsWsbsmhTFoh0S7sLG+gIpQWzxmYWLFW6MZAF9+F5rJmrSWpy UBtjfSTjPqypjTXY
yt4LblcUwJEConKh4B23Q/a39H+m7ZEXuEYeaht7uC3stbawN9vmHOGKeItr /tsdigxUqpNylKdU
luazbsikaot3aoi3eDPbC82HQCN4VzObn8fCvhS4mKAWuNkOaoG7KkMOtMJU sBv+chsEfBNedwsc
ScrMeyGNepKoMpSm9pMTUHOEkKk8JHcRIg5QyN4WiCVWs/A8IsbBsYX/YDEl LO56QFopxHbcIgGi
YU+NYW8jULKnWgz72yBK411kUoIyg/e1wmHJ8g4qYFerSuGmsKTaUq1IATsb A9MaDBm3DWmVASk1
bEsV2yC9b6zCoZyTUs5Im8r4O87GO1hiKRdyoHVGtvgSiyhUgIu8wDbcdCvZ ylLtBBH4SBxiB+Jn
USehtErU717RtjIDtLU0YKsDvQpiG6ws0cIVb5YFIqS4Yq6YIiggupCtggrY 8qtcSIDazG/YoPel
wDDlHD8NcHHXZRFBiZ3AJ7vh41VMyOWYOMURKz8u+nxUyc423WmBi4ckRkEJ xvQ37OaypjaNr/RX
ioIWXGAR5zk14IIeOiaBgxb+A5GhI3DUhZW9mGDxHDjmVgdLtnMBAdWYPs9/ iYTvkDfRIQaimKL0
I9bG4sLSV5+y/zLFui/esjPanL7CtHWRadsS05Z5kHFTOFSSMJUrLrQoelzh 0mG5cdMqCvLSX7qJ
yMBBjf8LG3NSAjfquC9wJqXHCXACloKXlVuKT9ijC4i+0FFCtLPzBPUgTRJd T6KGfgc/Kzv8s4p3
X3cef7P86KHSwz91vLTH8asM+/Pp9mdTbU9vsT2dbPtpknV/gmVPjDljpSll flH8lNxlI/8cGWp2
NMjgRvyVE3vgIEOP5eAizgcuVXocB8ddiRxKGu+4tjrcmUoXU3qZShaazDQh 4yMUYh2GKiDj1AQ4
+/NpzhNvV548Wv6Hl8uOPFP66n7Hod32X2XYnksDO/svt9p+vtl2IMmyd615 Z5Rp2+LipJl5q8a9
N/UhQOfgJn7NvMHx8Q/DHB/gJHdL5siEaHCl8dXdN312zy69TGmgEp96cDIs QuYCF1nEIovQeNuB
RCCryDx8663nS1/Z53hxp/3gdtsvkq1PJVn3rrPsjjVnRJozVvHOmzLfuGlO UcK0vKjxJ2cM4uAw
wAHcT75WeBxYYnaHqIEPBy2B+2C0koYtJThlYOKxyafHaaLWE8axZgWyEhZt 5HKBs+5dW3bk6bI3
ngW1uvNfAId1f5J1d5w5I9q0fZlpy0LjxjnGpFnIr/40qyQ+7GZc6KXVE7Pm /JiDm5Eng8MYx7vq
I59xluEAV8jdG43ZYO0o7IAdnQK4zkOTO9LHm8kSOSKhPIt0xtGKa2Y52CHx 7H9Vehgw4NAqQtYe
HAJC6Ut7Sl95Er4m6i9RW27asgDUShKmifyStZNurp18KdoLnDzGARxYLpDm LHA3gEuywePuG/Qi
RKVQ2iMH7HzaiEtE40WO9ymyqW9stTub+0acRYHXC8vqG1p2vu3wZKfSPQVf X+DMacswovEe+lya
7efJgpFp62LT5ghj4gw3tdVjS2LGF8VOvBQ9Pmv2ENnjHs3lXdXtcQIc7iqD k6bOKeWiqUHbykki
x7C5jOTGAeKJFq3gPr9Uj0veef9av+kf4e5wNxzmFdzqE3vTT3ZoAhridjd3 VwU42zMpNsRQvB/Y
aN2zTpDCiOamFj2qJHJESfToophHL0c9+sHswRzc9ALmGxyGUkwmJHeT1xx+ gEuyKcDBa7h8eZx8
CmedNS3k1MGR14V9ZVV93wVf0qE/En4XaXX1ViPuYtw8F0GTh86fbcboZtkb Z35itceYY4oda1oz
0hj1E2P0iOI1o6+sGn1q5sMyOHgY2GEqx8c4+N6sArbMxD8lWppJKzVDSiUk 2oz1P8ntcZJBO4+T
lnVucLTKU+R4n1JiFYDIrF9olj/ICHRsaXtxB+TgkmZad8fa9q+3IYzuW2/Z s5ZPg3csF+zM6yea
48aYY0aYo4eao4eVrB6ev3L4qekDObg512SnQ1ft/2p7cC5qWN/S0rdrcAq4 LLEcUtDhh8oc71Od
29PlmhWP2OKSgiDuXrJuivnxSOuT66z7EmxPxiPIWnZFe3icNX6Mde1wy+oh lughxqgh+cuGfDj1
QQ4uvIiDG5nPPY6DG5aH5T73OAwNBE6iZthaG7C9wQ1uZ0OwJLfHba2FDeTG gf2GjVXuw41870GZ
430KZ501rdRVyZjs0VWVOXw/xw+58TlZrBPFFq+ZgDma5YnVQGbdG2fZEyuo WdMiKN1aU2lbN9wW
M9gaPci0atDVRQM/Cvs3Dm5BMWc3uZCDe+g/JHA45uAcRI2D296ATRioM3AZ fKNGaUNOihBJIOiQ
3La+vkkZo8Up7O3kFvEx7p0/fsv3eTbUHD3L5yX/e97Yb2o25fgvYu3Ch2KL IkcbkyPMO1ZYdq22
7I5xU8tYZE2ba0t1R1V7zMO2qIGm5f0L5v8we9J9HNxCGwsvUYCD73Fw0rhA 1NBaCZwho9ENblcz
dkEhZQ4MlDa4iqU0fJ7PQeRdtiEN5Rbzw/dOXe436bjb46RTpIzMJsw/HKW3 g+OtOLRXtgI9KIes
uiJsNCQ2NTAhgs7Z3YZw95tLh5YkzjClLjLvWCmoWTKWWncstG4Pt6VOdyRP Evn2VT+yLLn/avgP
sicEc3BAROz47gg8jsAh+qCfujopUTM8IU9Kecjb1Uy7oKLxSBv2tAXu5P4l 97W0FpbWAnx/+MQJ
EJR/zdr6ehaf8QUn8OHZ4wVj6LmsesetOmG/+7Wr/R47TqdILKVZtejzgL2U IIhJ9SyRl//PBYOK
Yydj5gF2Nec+Ro4lbbElbaFle4Q1dZYtZYp903hH0ijk153JtK94wLyg39UZ QR+ODeTglldwcLMc
fP3g6qolLBLhj+95wt0ENYADL5rl0tYubfyKHGSCHUQ5gCgUvLm033w+oYX6 rrwQnFJBp5RzaeVV
QduqlfZBaXXK0vB5+COBW8KHxt+YOwC9tXhdmHHjbFNyhGlLhCk53Jw825w8 07J5inXjRNv60fZ1
w9BP4W62JT8wRQTlTw08NSZABgenAzisUDm4R3K4+0ngKCYIcMHYNN/bAjpK asSOdsk5OLFFLhEk
Kdv8L0m3o+zCh8YXzHzgu8VDbkSN++fax27GTy1aP60oPqwoIaw4YXJJ/HhT 3GhTzDBz1MPmFf3N
i+83zQspmhV48TH23kjGwUVVc6cDOLmrtgdH7GjwEt2T+5rL3QS4ztkJiJ0n eg6rNzvzrZYLK8ed
n9X//LzBOUuG5ywfnbN8TM6yUbnLR15cNjxv6dArSwdfWTQwf0H/KxEP5M/u d2V6n4uhAV+MZ+/P
HeYJjk9HFODoyQU5Hfkdn4K4RjcZ337ZBzvyuJ5job5kz34tOV3629Xl+bkf Lxl3fML9J0N/9H7Y
gyemDDgR+uDJKf2zpvT/IOyH2aH3fzT5vtOT+maPD84eZzg9NuCDUezk3GGO yznpb1S28zgXOAQH
aYzDNEp6p2WD5Hp4BCPhI7liK4Y/b1HDyFtVyp+RS814J3dPV+yWxrigjbXp /ylPM73DVEc55rLm
9Ncrg9ZU8X5KYxy6ajtwWBVjd0R+UCAvvBAu3A+rlM+xMhrxwM1DFFJpUqJa KsOl6gLBCNQoktJc
ZH0tQioXEpiXxPKpCX+nhFCsk0VVYJ4sn8WIRoOahzzB8RlJEX+QszgnYEku ttH5Tjq2NiVhw57E
dzrBV2yuurenXdutys2cO5hehpmmOvE9S6Nv48WFfPcMwkqJNO+6fEj5EOXg HStTCKt4WqIigXdQ
8g1ucQ4HJ7ET+Aiih8iAS9grLnSfFWYdJHA7NZLvQrfoSmoK9NOGllwUVUOm XR+4s7xv/A3xrQg9
0QkBFn6dDT/B+r+mg5O/c6TSXdzg+uke5/q+lhp2fGT88THucTo4Nbzc3+7S wWni5QNc37BrenBQ
D9HdVXVw6qnxb3eJrhoSVqB7nHp2HNxQKTjo4NRTkz1OB6cJmfzVX93j/KCm e5y21YISsXuM66sH
B00rh3lYOWTy4KCD09RnWTfBefxASOW9cZVKy3vWzA2uO9MRrSC02t+D+FjE DTZU6qp3EJxwQzly
K/yLkHkbUM49CKijKrnBdWeMU7bZZ1rw6gild/49DlG5VvV/yeUBSznwubcT vPyuc4jfI3D+7450
5HHtJj69DxwtubqzO/L/tKveWXA+x37vDquMBh6x4h7vpF5r1Sn+d9XvRVPv bCWlqErbSjo4TUsu
Aa4705E7+2F+L0rTF/l+bpDo4LoNTh/jNA0RimcOenDQFhxcD2v04KDN47Af R7sjOji/wekTYA2B
gm9kujxOB6eD0zLMa+qh7kW37nE6OA0dzT9Y7bYXdY/zD6IeHPz0Ux2cDq7n I6k+xvnpZd0FZzXn
Feb/vSDv8/yLn90F5Xz1Yc9J1B/NuXb5b2gXWqcmXPgzxqF0Y+E3Gb8+NmLd C2zugd6hAVEHEw8e
NRd/a7p5vqfA4ZMBtbHRh761tvUmoUUZv87sQY8DOPjaZ5droZiIyb3mHQ1B u8pL+f9a7VJs3g3x
/Ti1i3wMB+ien1yqSZgzuZm/mnqBEsInfXKpFu2qcpq7pMafHfsBDh6HG/wl 9/aZi7cbGxt6herP
XKw5k1uDdlVXWVSB41+eljcy1XocgTt9oTpp7IT6+tpeoLq6msSxEz7+tloC Z9UGLkT1T5IIXPY3
VVBtbXUvUE0Nb0v2+aq7AS7ra+fCyY/W1oKdBtHXRDRd4mHczct93rqmpnLh 5HEnv3LeDXAn/qfi
v7904paaROA0XeJh3M3Lfd769m0nmgPdDXB/OndrxYTpuKV6oc1kLBKUppc4 5fOwSwNlycry1VSv
urpi5fgZf/qiXAs4TEfk33JpCw7HzpZBuKV6oT1k7J3wyBc2wtJnjvLWZEnQ 1VeJLKuqyjPP3so8
W3Y3wP3+U8e++KnV1eXqJTWJ23snRL5wQLIRliKtzKFM8fKwV1+xqqpb+9ZO /f2npdrAuX4Ep83j
fnPG8ZszdtxSpZQtpDQupHchj0MPA+9LlPY+C1RZt8rKst9Kzbkb4N48bfvF htDKylsqhYYpLenQ
ZyaZeRt0lNORvcqKwczpLHt6c+hbp213A9yRbOuRbAs+K5WSmu02FofCE+ls R4fKy8nGw55yPO6i
sm5OZyk1RwM4/rDGr+Dw76csqcsjcMseFUD0aPlUeEWFPXXZvMOnzHcD3KtZ JsjpdPSoJHA9ewuU
X1Fu482RwdlULbmwyHf9JElbcHg5y5S2ZG5pqbmMy/L9FZpgtxWjLWgRPO52 lV0bOPW/c/ju8jns
l+I2xK7XvKMhaFddbYVacDQBVg/u5rWv1j97FPul0QfPPf5Cea8RWrTlxXca G2p6CpzFmIuidx9+
t5c9c0g9dKyurqK5qV4bOPU/uywv/Q7bpPW1zqbGOtymubmhR9Xa2tJzEjVv aW5qacFWdmOV06gK
nNjIVA9OTbm93kb68rTGHeBeD0VNA5W/c1A7HVFTbq+30cF1/STQpxPov3Pw F5z49xn6L2s0DS/K
/zuij3EavE8f4zTAavc1L/HfvNQvuTS5dG811j2uGx6ndZHfW51IU7vc/7CF PZyD3vrgWjP9p8yQ
NQ6IrajU5YMABrhJZ+XnqmzgB3wTnSvTlaBDkemVD19ViixFDi8n0/NQtkG+ pHaFS/b8kvbyvMRl
5qOe4pR3zX02SmHWSX2oVm7hqnf54eDf8f04NuC3/I8ujQT+D6JkIBcY9Rmp AAAAAElFTkSuQmCC
------=_NextPart_000_0045_01C62652.A7AFFC20--

Attached files
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

TMessageBox

Mensaje por Xevi »

This is a multi-part message in MIME format.
------=_NextPart_000_0047_01C62657.09760EA0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0048_01C62657.09760EA0"
------=_NextPart_001_0048_01C62657.09760EA0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Jose,
Este mismo c=F3digo, en un proyecto NUEVO me funciona tal como me =
comentas.
Ahora bien, te puedo asegurar que en MI PROYECTO salen DOS BOTONES "SI" =
y "NO"
Tendr=E9 que investigar =BFque hago mal en mi proyecto???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribi=F3 en el =
mensaje news:[email=43df3061@ozsrvnegro.ozlan.local...]43df3061@ozsrvnegro.ozlan.local...[/email]
Xevi,
> Ahora no se puede crear CajasDi=E1logo con un s=F3lo bot=F3n d eOK =
???
>=20
> WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
> :cTitle :=3D "TITULO"
> :cText :=3D "Texto"
> :nStyle :=3D mbOk
> :Create()
> END
>=20
>=20
> Se crean DOS BOTONES con "SI" "NO"
Acabo de probar exactamente este c=F3digo:
WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
:cTitle :=3D "TITULO"
:cText :=3D "Texto"
:nStyle :=3D mbOk
:Run()
END
y sale esto:
Por favor, env=EDame un ejemplo que salga mal.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
------=_NextPart_001_0048_01C62657.09760EA0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2802" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Jose,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Este mismo c=F3digo, en un proyecto =
NUEVO me funciona=20
tal como me comentas.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ahora bien, te puedo asegurar que en MI =
PROYECTO=20
salen DOS BOTONES "SI" y "NO"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Tendr=E9 que investigar =BFque hago mal =
en mi=20
proyecto???</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Jose F. Gimenez" <jfgimenez@wanadoo.es> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:43df3061@ozsrvnegro.ozlan.local">news:43df3061@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Xevi,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>> Ahora no se puede crear =
CajasDi=E1logo con un=20
s=F3lo bot=F3n d eOK ???<BR>> <BR>>ÂÂ WITH OBJECT =
oMessageBox1 :=3D=20
TMessageBox():New()<BR> >ÂÂÂÂÂ=2 0
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR> >ÂÂÂÂÂ=2 0
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR> >ÂÂÂÂÂ=2 0
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>>ÂÂÂÂÂ =
:Create()<BR>>ÂÂ=20
END<BR>> <BR>> <BR>> Se crean DOS BOTONES con "SI"=20
"NO"<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Acabo de probar exactamente este=20
c=F3digo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT oMessageBox1 =
:=3D=20
TMessageBox():New()<BR>ÂÂÂÂÂ=20
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR>ÂÂÂÂÂ=20
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR>ÂÂÂÂÂ=20
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>ÂÂÂÂÂ :Run()<BR>ÂÂ=20
END<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>y sale esto:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0=20
src=3D"cid:004201c6264e$a7acebb0$[email=0cc8a8c0@Xevi]0cc8a8c0@Xevi[/email]" align=3Dbaseline =
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV><FONT face=3DArial =
size=3D2>
<DIV>Por favor, env=EDame un ejemplo que salga mal.</DIV>
<DIV>Â</DIV>
<DIV><BR>-- <BR>Un saludo,</DIV>
<DIV>Â</DIV>
<DIV>Jos=E9 F. Gim=E9nez</FONT></DIV></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_0048_01C62657.09760EA0--
------=_NextPart_000_0047_01C62657.09760EA0
Content-Type: image/png;
name="msgbox.png"
Content-Transfer-Encoding: base64
Content-ID: <004201c6264e$a7acebb0$[email=0cc8a8c0@Xevi]0cc8a8c0@Xevi[/email]>
iVBORw0KGgoAAAANSUhEUgAAAGgAAABrCAIAAAAU6lBYAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAEcBJREFU
eF7tnAtQVEe6xxtGQLOV3N1oLBNdXd/GV8C3Ir7fgIIIgg9EFCTGRzTuI9mY 1CZlZfPwVrxJbnbd
3ZRUdr3XRGJImV03D2tN7U1yNxoQFdHgCsx7QBhA3q/77/Od6TnMDHDOIK7h nql/DX36fKdP92++
7q+7zwwBZfYCpngNSK0JCDAgo60phGcbAuSTwX15OsTA+hhYcwveAwyGtpY2 1tzKAgNZIGOtrlKa
caD+xe/V9SugsWsbsmhTFoh0S7sLG+gIpQWzxmYWLFW6MZAF9+F5rJmrSWpy UBtjfSTjPqypjTXY
yt4LblcUwJEConKh4B23Q/a39H+m7ZEXuEYeaht7uC3stbawN9vmHOGKeItr /tsdigxUqpNylKdU
luazbsikaot3aoi3eDPbC82HQCN4VzObn8fCvhS4mKAWuNkOaoG7KkMOtMJU sBv+chsEfBNedwsc
ScrMeyGNepKoMpSm9pMTUHOEkKk8JHcRIg5QyN4WiCVWs/A8IsbBsYX/YDEl LO56QFopxHbcIgGi
YU+NYW8jULKnWgz72yBK411kUoIyg/e1wmHJ8g4qYFerSuGmsKTaUq1IATsb A9MaDBm3DWmVASk1
bEsV2yC9b6zCoZyTUs5Im8r4O87GO1hiKRdyoHVGtvgSiyhUgIu8wDbcdCvZ ylLtBBH4SBxiB+Jn
USehtErU717RtjIDtLU0YKsDvQpiG6ws0cIVb5YFIqS4Yq6YIiggupCtggrY 8qtcSIDazG/YoPel
wDDlHD8NcHHXZRFBiZ3AJ7vh41VMyOWYOMURKz8u+nxUyc423WmBi4ckRkEJ xvQ37OaypjaNr/RX
ioIWXGAR5zk14IIeOiaBgxb+A5GhI3DUhZW9mGDxHDjmVgdLtnMBAdWYPs9/ iYTvkDfRIQaimKL0
I9bG4sLSV5+y/zLFui/esjPanL7CtHWRadsS05Z5kHFTOFSSMJUrLrQoelzh 0mG5cdMqCvLSX7qJ
yMBBjf8LG3NSAjfquC9wJqXHCXACloKXlVuKT9ijC4i+0FFCtLPzBPUgTRJd T6KGfgc/Kzv8s4p3
X3cef7P86KHSwz91vLTH8asM+/Pp9mdTbU9vsT2dbPtpknV/gmVPjDljpSll flH8lNxlI/8cGWp2
NMjgRvyVE3vgIEOP5eAizgcuVXocB8ddiRxKGu+4tjrcmUoXU3qZShaazDQh 4yMUYh2GKiDj1AQ4
+/NpzhNvV548Wv6Hl8uOPFP66n7Hod32X2XYnksDO/svt9p+vtl2IMmyd615 Z5Rp2+LipJl5q8a9
N/UhQOfgJn7NvMHx8Q/DHB/gJHdL5siEaHCl8dXdN312zy69TGmgEp96cDIs QuYCF1nEIovQeNuB
RCCryDx8663nS1/Z53hxp/3gdtsvkq1PJVn3rrPsjjVnRJozVvHOmzLfuGlO UcK0vKjxJ2cM4uAw
wAHcT75WeBxYYnaHqIEPBy2B+2C0koYtJThlYOKxyafHaaLWE8axZgWyEhZt 5HKBs+5dW3bk6bI3
ngW1uvNfAId1f5J1d5w5I9q0fZlpy0LjxjnGpFnIr/40qyQ+7GZc6KXVE7Pm /JiDm5Eng8MYx7vq
I59xluEAV8jdG43ZYO0o7IAdnQK4zkOTO9LHm8kSOSKhPIt0xtGKa2Y52CHx 7H9Vehgw4NAqQtYe
HAJC6Ut7Sl95Er4m6i9RW27asgDUShKmifyStZNurp18KdoLnDzGARxYLpDm LHA3gEuywePuG/Qi
RKVQ2iMH7HzaiEtE40WO9ymyqW9stTub+0acRYHXC8vqG1p2vu3wZKfSPQVf X+DMacswovEe+lya
7efJgpFp62LT5ghj4gw3tdVjS2LGF8VOvBQ9Pmv2ENnjHs3lXdXtcQIc7iqD k6bOKeWiqUHbykki
x7C5jOTGAeKJFq3gPr9Uj0veef9av+kf4e5wNxzmFdzqE3vTT3ZoAhridjd3 VwU42zMpNsRQvB/Y
aN2zTpDCiOamFj2qJHJESfToophHL0c9+sHswRzc9ALmGxyGUkwmJHeT1xx+ gEuyKcDBa7h8eZx8
CmedNS3k1MGR14V9ZVV93wVf0qE/En4XaXX1ViPuYtw8F0GTh86fbcboZtkb Z35itceYY4oda1oz
0hj1E2P0iOI1o6+sGn1q5sMyOHgY2GEqx8c4+N6sArbMxD8lWppJKzVDSiUk 2oz1P8ntcZJBO4+T
lnVucLTKU+R4n1JiFYDIrF9olj/ICHRsaXtxB+TgkmZad8fa9q+3IYzuW2/Z s5ZPg3csF+zM6yea
48aYY0aYo4eao4eVrB6ev3L4qekDObg512SnQ1ft/2p7cC5qWN/S0rdrcAq4 LLEcUtDhh8oc71Od
29PlmhWP2OKSgiDuXrJuivnxSOuT66z7EmxPxiPIWnZFe3icNX6Mde1wy+oh lughxqgh+cuGfDj1
QQ4uvIiDG5nPPY6DG5aH5T73OAwNBE6iZthaG7C9wQ1uZ0OwJLfHba2FDeTG gf2GjVXuw41870GZ
430KZ501rdRVyZjs0VWVOXw/xw+58TlZrBPFFq+ZgDma5YnVQGbdG2fZEyuo WdMiKN1aU2lbN9wW
M9gaPci0atDVRQM/Cvs3Dm5BMWc3uZCDe+g/JHA45uAcRI2D296ATRioM3AZ fKNGaUNOihBJIOiQ
3La+vkkZo8Up7O3kFvEx7p0/fsv3eTbUHD3L5yX/e97Yb2o25fgvYu3Ch2KL IkcbkyPMO1ZYdq22
7I5xU8tYZE2ba0t1R1V7zMO2qIGm5f0L5v8we9J9HNxCGwsvUYCD73Fw0rhA 1NBaCZwho9ENblcz
dkEhZQ4MlDa4iqU0fJ7PQeRdtiEN5Rbzw/dOXe436bjb46RTpIzMJsw/HKW3 g+OtOLRXtgI9KIes
uiJsNCQ2NTAhgs7Z3YZw95tLh5YkzjClLjLvWCmoWTKWWncstG4Pt6VOdyRP Evn2VT+yLLn/avgP
sicEc3BAROz47gg8jsAh+qCfujopUTM8IU9Kecjb1Uy7oKLxSBv2tAXu5P4l 97W0FpbWAnx/+MQJ
EJR/zdr6ehaf8QUn8OHZ4wVj6LmsesetOmG/+7Wr/R47TqdILKVZtejzgL2U IIhJ9SyRl//PBYOK
Yydj5gF2Nec+Ro4lbbElbaFle4Q1dZYtZYp903hH0ijk153JtK94wLyg39UZ QR+ODeTglldwcLMc
fP3g6qolLBLhj+95wt0ENYADL5rl0tYubfyKHGSCHUQ5gCgUvLm033w+oYX6 rrwQnFJBp5RzaeVV
QduqlfZBaXXK0vB5+COBW8KHxt+YOwC9tXhdmHHjbFNyhGlLhCk53Jw825w8 07J5inXjRNv60fZ1
w9BP4W62JT8wRQTlTw08NSZABgenAzisUDm4R3K4+0ngKCYIcMHYNN/bAjpK asSOdsk5OLFFLhEk
Kdv8L0m3o+zCh8YXzHzgu8VDbkSN++fax27GTy1aP60oPqwoIaw4YXJJ/HhT 3GhTzDBz1MPmFf3N
i+83zQspmhV48TH23kjGwUVVc6cDOLmrtgdH7GjwEt2T+5rL3QS4ztkJiJ0n eg6rNzvzrZYLK8ed
n9X//LzBOUuG5ywfnbN8TM6yUbnLR15cNjxv6dArSwdfWTQwf0H/KxEP5M/u d2V6n4uhAV+MZ+/P
HeYJjk9HFODoyQU5Hfkdn4K4RjcZ337ZBzvyuJ5job5kz34tOV3629Xl+bkf Lxl3fML9J0N/9H7Y
gyemDDgR+uDJKf2zpvT/IOyH2aH3fzT5vtOT+maPD84eZzg9NuCDUezk3GGO yznpb1S28zgXOAQH
aYzDNEp6p2WD5Hp4BCPhI7liK4Y/b1HDyFtVyp+RS814J3dPV+yWxrigjbXp /ylPM73DVEc55rLm
9Ncrg9ZU8X5KYxy6ajtwWBVjd0R+UCAvvBAu3A+rlM+xMhrxwM1DFFJpUqJa KsOl6gLBCNQoktJc
ZH0tQioXEpiXxPKpCX+nhFCsk0VVYJ4sn8WIRoOahzzB8RlJEX+QszgnYEku ttH5Tjq2NiVhw57E
dzrBV2yuurenXdutys2cO5hehpmmOvE9S6Nv48WFfPcMwkqJNO+6fEj5EOXg HStTCKt4WqIigXdQ
8g1ucQ4HJ7ET+Aiih8iAS9grLnSfFWYdJHA7NZLvQrfoSmoK9NOGllwUVUOm XR+4s7xv/A3xrQg9
0QkBFn6dDT/B+r+mg5O/c6TSXdzg+uke5/q+lhp2fGT88THucTo4Nbzc3+7S wWni5QNc37BrenBQ
D9HdVXVw6qnxb3eJrhoSVqB7nHp2HNxQKTjo4NRTkz1OB6cJmfzVX93j/KCm e5y21YISsXuM66sH
B00rh3lYOWTy4KCD09RnWTfBefxASOW9cZVKy3vWzA2uO9MRrSC02t+D+FjE DTZU6qp3EJxwQzly
K/yLkHkbUM49CKijKrnBdWeMU7bZZ1rw6gild/49DlG5VvV/yeUBSznwubcT vPyuc4jfI3D+7450
5HHtJj69DxwtubqzO/L/tKveWXA+x37vDquMBh6x4h7vpF5r1Sn+d9XvRVPv bCWlqErbSjo4TUsu
Aa4705E7+2F+L0rTF/l+bpDo4LoNTh/jNA0RimcOenDQFhxcD2v04KDN47Af R7sjOji/wekTYA2B
gm9kujxOB6eD0zLMa+qh7kW37nE6OA0dzT9Y7bYXdY/zD6IeHPz0Ux2cDq7n I6k+xvnpZd0FZzXn
Feb/vSDv8/yLn90F5Xz1Yc9J1B/NuXb5b2gXWqcmXPgzxqF0Y+E3Gb8+NmLd C2zugd6hAVEHEw8e
NRd/a7p5vqfA4ZMBtbHRh761tvUmoUUZv87sQY8DOPjaZ5droZiIyb3mHQ1B u8pL+f9a7VJs3g3x
/Ti1i3wMB+ien1yqSZgzuZm/mnqBEsInfXKpFu2qcpq7pMafHfsBDh6HG/wl 9/aZi7cbGxt6herP
XKw5k1uDdlVXWVSB41+eljcy1XocgTt9oTpp7IT6+tpeoLq6msSxEz7+tloC Z9UGLkT1T5IIXPY3
VVBtbXUvUE0Nb0v2+aq7AS7ra+fCyY/W1oKdBtHXRDRd4mHczct93rqmpnLh 5HEnv3LeDXAn/qfi
v7904paaROA0XeJh3M3Lfd769m0nmgPdDXB/OndrxYTpuKV6oc1kLBKUppc4 5fOwSwNlycry1VSv
urpi5fgZf/qiXAs4TEfk33JpCw7HzpZBuKV6oT1k7J3wyBc2wtJnjvLWZEnQ 1VeJLKuqyjPP3so8
W3Y3wP3+U8e++KnV1eXqJTWJ23snRL5wQLIRliKtzKFM8fKwV1+xqqpb+9ZO /f2npdrAuX4Ep83j
fnPG8ZszdtxSpZQtpDQupHchj0MPA+9LlPY+C1RZt8rKst9Kzbkb4N48bfvF htDKylsqhYYpLenQ
ZyaZeRt0lNORvcqKwczpLHt6c+hbp213A9yRbOuRbAs+K5WSmu02FofCE+ls R4fKy8nGw55yPO6i
sm5OZyk1RwM4/rDGr+Dw76csqcsjcMseFUD0aPlUeEWFPXXZvMOnzHcD3KtZ JsjpdPSoJHA9ewuU
X1Fu482RwdlULbmwyHf9JElbcHg5y5S2ZG5pqbmMy/L9FZpgtxWjLWgRPO52 lV0bOPW/c/ju8jns
l+I2xK7XvKMhaFddbYVacDQBVg/u5rWv1j97FPul0QfPPf5Cea8RWrTlxXca G2p6CpzFmIuidx9+
t5c9c0g9dKyurqK5qV4bOPU/uywv/Q7bpPW1zqbGOtymubmhR9Xa2tJzEjVv aW5qacFWdmOV06gK
nNjIVA9OTbm93kb68rTGHeBeD0VNA5W/c1A7HVFTbq+30cF1/STQpxPov3Pw F5z49xn6L2s0DS/K
/zuij3EavE8f4zTAavc1L/HfvNQvuTS5dG811j2uGx6ndZHfW51IU7vc/7CF PZyD3vrgWjP9p8yQ
NQ6IrajU5YMABrhJZ+XnqmzgB3wTnSvTlaBDkemVD19ViixFDi8n0/NQtkG+ pHaFS/b8kvbyvMRl
5qOe4pR3zX02SmHWSX2oVm7hqnf54eDf8f04NuC3/I8ujQT+D6JkIBcY9Rmp AAAAAElFTkSuQmCC
------=_NextPart_000_0047_01C62657.09760EA0--

Attached files
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

TMessageBox

Mensaje por jfgimenez »

Xevi,
Este mismo código, en un proyecto NUEVO me funciona tal como me comentas.
Ahora bien, te puedo asegurar que en MI PROYECTO salen DOS BOTONES "SI" y "NO"
Tendré que investigar ¿que hago mal en mi proyecto???
Revisa bien por si estuvieras definiendo mbOK por algún sitio. Puedes usar Ctrl+Shift+F para buscar en todo el proyecto.
--
Un saludo,
José F. Giménez
--
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

TMessageBox

Mensaje por Xevi »

This is a multi-part message in MIME format.
------=_NextPart_000_000C_01C62658.3A926CD0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_000D_01C62658.3A926CD0"
------=_NextPart_001_000D_01C62658.3A926CD0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Ademas de colocarme dos botones "SI" y "NO"...
Me DESACTIVA la cruz de cerrar la ventana !!!
Para que funcione en MI APLICACION...
WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
:cTitle :=3D "TITULO"
:cText :=3D "Texto"
* :nStyle :=3D mbOk
:Run()
END
Seguir=E9 investigando, aunque no es problema... no le pongo nStyle =
cuando se trata de 1 solo bot=F3n y listo!!!
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:43df37bd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Jose,
Este mismo c=F3digo, en un proyecto NUEVO me funciona tal como me =
comentas.
Ahora bien, te puedo asegurar que en MI PROYECTO salen DOS BOTONES =
"SI" y "NO"
Tendr=E9 que investigar =BFque hago mal en mi proyecto???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribi=F3 en el =
mensaje news:[email=43df3061@ozsrvnegro.ozlan.local...]43df3061@ozsrvnegro.ozlan.local...[/email]
Xevi,
> Ahora no se puede crear CajasDi=E1logo con un s=F3lo bot=F3n d eOK =
???
>=20
> WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
> :cTitle :=3D "TITULO"
> :cText :=3D "Texto"
> :nStyle :=3D mbOk
> :Create()
> END
>=20
>=20
> Se crean DOS BOTONES con "SI" "NO"
Acabo de probar exactamente este c=F3digo:
WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
:cTitle :=3D "TITULO"
:cText :=3D "Texto"
:nStyle :=3D mbOk
:Run()
END
y sale esto:
Por favor, env=EDame un ejemplo que salga mal.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
------=_NextPart_001_000D_01C62658.3A926CD0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2802" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Ademas de colocarme dos botones "SI" y=20
"NO"...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me DESACTIVA la cruz de cerrar la =
ventana=20
!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Para que funcione en MI =
APLICACION...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT oMessageBox1 =
:=3D=20
TMessageBox():New()<BR>ÂÂÂÂÂ=20
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR>ÂÂÂÂÂ=20
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR>*ÂÂÂÂÂ=20
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>ÂÂÂÂÂ :Run()<BR>ÂÂ=20
END<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Seguir=E9 investigando, aunque no es =
problema... no=20
le pongo nStyle cuando se trata de 1 solo bot=F3n y =
listo!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Â</DIV></FONT>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Â</DIV></FONT>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:43df37bd$1@ozsrvnegro.ozlan.local">news:43df37bd$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Jose,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Este mismo c=F3digo, en un proyecto =
NUEVO me=20
funciona tal como me comentas.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ahora bien, te puedo asegurar que en =
MI PROYECTO=20
salen DOS BOTONES "SI" y "NO"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Tendr=E9 que investigar =BFque hago =
mal en mi=20
proyecto???</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Jose F. Gimenez" <jfgimenez@wanadoo.es> =
escribi=F3 en=20
el mensaje <A=20
=
href=3D"news:43df3061@ozsrvnegro.ozlan.local">news:43df3061@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Xevi,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>> Ahora no se puede crear =
CajasDi=E1logo con=20
un s=F3lo bot=F3n d eOK ???<BR>> <BR>>ÂÂ WITH OBJECT =
oMessageBox1 :=3D =
TMessageBox():New()<BR> >ÂÂÂÂÂ=2 0
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR> >ÂÂÂÂÂ=2 0
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR> >ÂÂÂÂÂ=2 0
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>>ÂÂÂÂÂ =
:Create()<BR>>ÂÂ=20
END<BR>> <BR>> <BR>> Se crean DOS BOTONES con "SI"=20
"NO"<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Acabo de probar exactamente este=20
c=F3digo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT =
oMessageBox1 :=3D=20
TMessageBox():New()<BR>ÂÂÂÂÂ=20
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR>ÂÂÂÂÂ=20
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR>ÂÂÂÂÂ=20
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>ÂÂÂÂÂ :Run()<BR>ÂÂ=20
END<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>y sale esto:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0=20
src=3D"cid:000701c6264f$d8c922d0$[email=0cc8a8c0@Xevi]0cc8a8c0@Xevi[/email]" align=3Dbaseline =
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV><FONT =
face=3DArial size=3D2>
<DIV>Por favor, env=EDame un ejemplo que salga mal.</DIV>
<DIV>Â</DIV>
<DIV><BR>-- <BR>Un saludo,</DIV>
<DIV>Â</DIV>
<DIV>Jos=E9 F. =
Gim=E9nez</FONT></DIV></BLOCKQUOTE></BLOCKQUOTE></BODY> </HTML>
------=_NextPart_001_000D_01C62658.3A926CD0--
------=_NextPart_000_000C_01C62658.3A926CD0
Content-Type: image/png;
name="msgbox.png"
Content-Transfer-Encoding: base64
Content-ID: <000701c6264f$d8c922d0$[email=0cc8a8c0@Xevi]0cc8a8c0@Xevi[/email]>
iVBORw0KGgoAAAANSUhEUgAAAGgAAABrCAIAAAAU6lBYAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAEcBJREFU
eF7tnAtQVEe6xxtGQLOV3N1oLBNdXd/GV8C3Ir7fgIIIgg9EFCTGRzTuI9mY 1CZlZfPwVrxJbnbd
3ZRUdr3XRGJImV03D2tN7U1yNxoQFdHgCsx7QBhA3q/77/Od6TnMDHDOIK7h nql/DX36fKdP92++
7q+7zwwBZfYCpngNSK0JCDAgo60phGcbAuSTwX15OsTA+hhYcwveAwyGtpY2 1tzKAgNZIGOtrlKa
caD+xe/V9SugsWsbsmhTFoh0S7sLG+gIpQWzxmYWLFW6MZAF9+F5rJmrSWpy UBtjfSTjPqypjTXY
yt4LblcUwJEConKh4B23Q/a39H+m7ZEXuEYeaht7uC3stbawN9vmHOGKeItr /tsdigxUqpNylKdU
luazbsikaot3aoi3eDPbC82HQCN4VzObn8fCvhS4mKAWuNkOaoG7KkMOtMJU sBv+chsEfBNedwsc
ScrMeyGNepKoMpSm9pMTUHOEkKk8JHcRIg5QyN4WiCVWs/A8IsbBsYX/YDEl LO56QFopxHbcIgGi
YU+NYW8jULKnWgz72yBK411kUoIyg/e1wmHJ8g4qYFerSuGmsKTaUq1IATsb A9MaDBm3DWmVASk1
bEsV2yC9b6zCoZyTUs5Im8r4O87GO1hiKRdyoHVGtvgSiyhUgIu8wDbcdCvZ ylLtBBH4SBxiB+Jn
USehtErU717RtjIDtLU0YKsDvQpiG6ws0cIVb5YFIqS4Yq6YIiggupCtggrY 8qtcSIDazG/YoPel
wDDlHD8NcHHXZRFBiZ3AJ7vh41VMyOWYOMURKz8u+nxUyc423WmBi4ckRkEJ xvQ37OaypjaNr/RX
ioIWXGAR5zk14IIeOiaBgxb+A5GhI3DUhZW9mGDxHDjmVgdLtnMBAdWYPs9/ iYTvkDfRIQaimKL0
I9bG4sLSV5+y/zLFui/esjPanL7CtHWRadsS05Z5kHFTOFSSMJUrLrQoelzh 0mG5cdMqCvLSX7qJ
yMBBjf8LG3NSAjfquC9wJqXHCXACloKXlVuKT9ijC4i+0FFCtLPzBPUgTRJd T6KGfgc/Kzv8s4p3
X3cef7P86KHSwz91vLTH8asM+/Pp9mdTbU9vsT2dbPtpknV/gmVPjDljpSll flH8lNxlI/8cGWp2
NMjgRvyVE3vgIEOP5eAizgcuVXocB8ddiRxKGu+4tjrcmUoXU3qZShaazDQh 4yMUYh2GKiDj1AQ4
+/NpzhNvV548Wv6Hl8uOPFP66n7Hod32X2XYnksDO/svt9p+vtl2IMmyd615 Z5Rp2+LipJl5q8a9
N/UhQOfgJn7NvMHx8Q/DHB/gJHdL5siEaHCl8dXdN312zy69TGmgEp96cDIs QuYCF1nEIovQeNuB
RCCryDx8663nS1/Z53hxp/3gdtsvkq1PJVn3rrPsjjVnRJozVvHOmzLfuGlO UcK0vKjxJ2cM4uAw
wAHcT75WeBxYYnaHqIEPBy2B+2C0koYtJThlYOKxyafHaaLWE8axZgWyEhZt 5HKBs+5dW3bk6bI3
ngW1uvNfAId1f5J1d5w5I9q0fZlpy0LjxjnGpFnIr/40qyQ+7GZc6KXVE7Pm /JiDm5Eng8MYx7vq
I59xluEAV8jdG43ZYO0o7IAdnQK4zkOTO9LHm8kSOSKhPIt0xtGKa2Y52CHx 7H9Vehgw4NAqQtYe
HAJC6Ut7Sl95Er4m6i9RW27asgDUShKmifyStZNurp18KdoLnDzGARxYLpDm LHA3gEuywePuG/Qi
RKVQ2iMH7HzaiEtE40WO9ymyqW9stTub+0acRYHXC8vqG1p2vu3wZKfSPQVf X+DMacswovEe+lya
7efJgpFp62LT5ghj4gw3tdVjS2LGF8VOvBQ9Pmv2ENnjHs3lXdXtcQIc7iqD k6bOKeWiqUHbykki
x7C5jOTGAeKJFq3gPr9Uj0veef9av+kf4e5wNxzmFdzqE3vTT3ZoAhridjd3 VwU42zMpNsRQvB/Y
aN2zTpDCiOamFj2qJHJESfToophHL0c9+sHswRzc9ALmGxyGUkwmJHeT1xx+ gEuyKcDBa7h8eZx8
CmedNS3k1MGR14V9ZVV93wVf0qE/En4XaXX1ViPuYtw8F0GTh86fbcboZtkb Z35itceYY4oda1oz
0hj1E2P0iOI1o6+sGn1q5sMyOHgY2GEqx8c4+N6sArbMxD8lWppJKzVDSiUk 2oz1P8ntcZJBO4+T
lnVucLTKU+R4n1JiFYDIrF9olj/ICHRsaXtxB+TgkmZad8fa9q+3IYzuW2/Z s5ZPg3csF+zM6yea
48aYY0aYo4eao4eVrB6ev3L4qekDObg512SnQ1ft/2p7cC5qWN/S0rdrcAq4 LLEcUtDhh8oc71Od
29PlmhWP2OKSgiDuXrJuivnxSOuT66z7EmxPxiPIWnZFe3icNX6Mde1wy+oh lughxqgh+cuGfDj1
QQ4uvIiDG5nPPY6DG5aH5T73OAwNBE6iZthaG7C9wQ1uZ0OwJLfHba2FDeTG gf2GjVXuw41870GZ
430KZ501rdRVyZjs0VWVOXw/xw+58TlZrBPFFq+ZgDma5YnVQGbdG2fZEyuo WdMiKN1aU2lbN9wW
M9gaPci0atDVRQM/Cvs3Dm5BMWc3uZCDe+g/JHA45uAcRI2D296ATRioM3AZ fKNGaUNOihBJIOiQ
3La+vkkZo8Up7O3kFvEx7p0/fsv3eTbUHD3L5yX/e97Yb2o25fgvYu3Ch2KL IkcbkyPMO1ZYdq22
7I5xU8tYZE2ba0t1R1V7zMO2qIGm5f0L5v8we9J9HNxCGwsvUYCD73Fw0rhA 1NBaCZwho9ENblcz
dkEhZQ4MlDa4iqU0fJ7PQeRdtiEN5Rbzw/dOXe436bjb46RTpIzMJsw/HKW3 g+OtOLRXtgI9KIes
uiJsNCQ2NTAhgs7Z3YZw95tLh5YkzjClLjLvWCmoWTKWWncstG4Pt6VOdyRP Evn2VT+yLLn/avgP
sicEc3BAROz47gg8jsAh+qCfujopUTM8IU9Kecjb1Uy7oKLxSBv2tAXu5P4l 97W0FpbWAnx/+MQJ
EJR/zdr6ehaf8QUn8OHZ4wVj6LmsesetOmG/+7Wr/R47TqdILKVZtejzgL2U IIhJ9SyRl//PBYOK
Yydj5gF2Nec+Ro4lbbElbaFle4Q1dZYtZYp903hH0ijk153JtK94wLyg39UZ QR+ODeTglldwcLMc
fP3g6qolLBLhj+95wt0ENYADL5rl0tYubfyKHGSCHUQ5gCgUvLm033w+oYX6 rrwQnFJBp5RzaeVV
QduqlfZBaXXK0vB5+COBW8KHxt+YOwC9tXhdmHHjbFNyhGlLhCk53Jw825w8 07J5inXjRNv60fZ1
w9BP4W62JT8wRQTlTw08NSZABgenAzisUDm4R3K4+0ngKCYIcMHYNN/bAjpK asSOdsk5OLFFLhEk
Kdv8L0m3o+zCh8YXzHzgu8VDbkSN++fax27GTy1aP60oPqwoIaw4YXJJ/HhT 3GhTzDBz1MPmFf3N
i+83zQspmhV48TH23kjGwUVVc6cDOLmrtgdH7GjwEt2T+5rL3QS4ztkJiJ0n eg6rNzvzrZYLK8ed
n9X//LzBOUuG5ywfnbN8TM6yUbnLR15cNjxv6dArSwdfWTQwf0H/KxEP5M/u d2V6n4uhAV+MZ+/P
HeYJjk9HFODoyQU5Hfkdn4K4RjcZ337ZBzvyuJ5job5kz34tOV3629Xl+bkf Lxl3fML9J0N/9H7Y
gyemDDgR+uDJKf2zpvT/IOyH2aH3fzT5vtOT+maPD84eZzg9NuCDUezk3GGO yznpb1S28zgXOAQH
aYzDNEp6p2WD5Hp4BCPhI7liK4Y/b1HDyFtVyp+RS814J3dPV+yWxrigjbXp /ylPM73DVEc55rLm
9Ncrg9ZU8X5KYxy6ajtwWBVjd0R+UCAvvBAu3A+rlM+xMhrxwM1DFFJpUqJa KsOl6gLBCNQoktJc
ZH0tQioXEpiXxPKpCX+nhFCsk0VVYJ4sn8WIRoOahzzB8RlJEX+QszgnYEku ttH5Tjq2NiVhw57E
dzrBV2yuurenXdutys2cO5hehpmmOvE9S6Nv48WFfPcMwkqJNO+6fEj5EOXg HStTCKt4WqIigXdQ
8g1ucQ4HJ7ET+Aiih8iAS9grLnSfFWYdJHA7NZLvQrfoSmoK9NOGllwUVUOm XR+4s7xv/A3xrQg9
0QkBFn6dDT/B+r+mg5O/c6TSXdzg+uke5/q+lhp2fGT88THucTo4Nbzc3+7S wWni5QNc37BrenBQ
D9HdVXVw6qnxb3eJrhoSVqB7nHp2HNxQKTjo4NRTkz1OB6cJmfzVX93j/KCm e5y21YISsXuM66sH
B00rh3lYOWTy4KCD09RnWTfBefxASOW9cZVKy3vWzA2uO9MRrSC02t+D+FjE DTZU6qp3EJxwQzly
K/yLkHkbUM49CKijKrnBdWeMU7bZZ1rw6gild/49DlG5VvV/yeUBSznwubcT vPyuc4jfI3D+7450
5HHtJj69DxwtubqzO/L/tKveWXA+x37vDquMBh6x4h7vpF5r1Sn+d9XvRVPv bCWlqErbSjo4TUsu
Aa4705E7+2F+L0rTF/l+bpDo4LoNTh/jNA0RimcOenDQFhxcD2v04KDN47Af R7sjOji/wekTYA2B
gm9kujxOB6eD0zLMa+qh7kW37nE6OA0dzT9Y7bYXdY/zD6IeHPz0Ux2cDq7n I6k+xvnpZd0FZzXn
Feb/vSDv8/yLn90F5Xz1Yc9J1B/NuXb5b2gXWqcmXPgzxqF0Y+E3Gb8+NmLd C2zugd6hAVEHEw8e
NRd/a7p5vqfA4ZMBtbHRh761tvUmoUUZv87sQY8DOPjaZ5droZiIyb3mHQ1B u8pL+f9a7VJs3g3x
/Ti1i3wMB+ien1yqSZgzuZm/mnqBEsInfXKpFu2qcpq7pMafHfsBDh6HG/wl 9/aZi7cbGxt6herP
XKw5k1uDdlVXWVSB41+eljcy1XocgTt9oTpp7IT6+tpeoLq6msSxEz7+tloC Z9UGLkT1T5IIXPY3
VVBtbXUvUE0Nb0v2+aq7AS7ra+fCyY/W1oKdBtHXRDRd4mHczct93rqmpnLh 5HEnv3LeDXAn/qfi
v7904paaROA0XeJh3M3Lfd769m0nmgPdDXB/OndrxYTpuKV6oc1kLBKUppc4 5fOwSwNlycry1VSv
urpi5fgZf/qiXAs4TEfk33JpCw7HzpZBuKV6oT1k7J3wyBc2wtJnjvLWZEnQ 1VeJLKuqyjPP3so8
W3Y3wP3+U8e++KnV1eXqJTWJ23snRL5wQLIRliKtzKFM8fKwV1+xqqpb+9ZO /f2npdrAuX4Ep83j
fnPG8ZszdtxSpZQtpDQupHchj0MPA+9LlPY+C1RZt8rKst9Kzbkb4N48bfvF htDKylsqhYYpLenQ
ZyaZeRt0lNORvcqKwczpLHt6c+hbp213A9yRbOuRbAs+K5WSmu02FofCE+ls R4fKy8nGw55yPO6i
sm5OZyk1RwM4/rDGr+Dw76csqcsjcMseFUD0aPlUeEWFPXXZvMOnzHcD3KtZ JsjpdPSoJHA9ewuU
X1Fu482RwdlULbmwyHf9JElbcHg5y5S2ZG5pqbmMy/L9FZpgtxWjLWgRPO52 lV0bOPW/c/ju8jns
l+I2xK7XvKMhaFddbYVacDQBVg/u5rWv1j97FPul0QfPPf5Cea8RWrTlxXca G2p6CpzFmIuidx9+
t5c9c0g9dKyurqK5qV4bOPU/uywv/Q7bpPW1zqbGOtymubmhR9Xa2tJzEjVv aW5qacFWdmOV06gK
nNjIVA9OTbm93kb68rTGHeBeD0VNA5W/c1A7HVFTbq+30cF1/STQpxPov3Pw F5z49xn6L2s0DS/K
/zuij3EavE8f4zTAavc1L/HfvNQvuTS5dG811j2uGx6ndZHfW51IU7vc/7CF PZyD3vrgWjP9p8yQ
NQ6IrajU5YMABrhJZ+XnqmzgB3wTnSvTlaBDkemVD19ViixFDi8n0/NQtkG+ pHaFS/b8kvbyvMRl
5qOe4pR3zX02SmHWSX2oVm7hqnf54eDf8f04NuC3/I8ujQT+D6JkIBcY9Rmp AAAAAElFTkSuQmCC
------=_NextPart_000_000C_01C62658.3A926CD0--

Attached files
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

TMessageBox

Mensaje por Xevi »

Si, tengo definido mbOk
#define mbOk 4
¿Es eso correcto???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:43df3992$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
Este mismo código, en un proyecto NUEVO me funciona tal como me comentas.
Ahora bien, te puedo asegurar que en MI PROYECTO salen DOS BOTONES "SI" y "NO"
Tendré que investigar ¿que hago mal en mi proyecto???
Revisa bien por si estuvieras definiendo mbOK por algún sitio. Puedes usar Ctrl+Shift+F para buscar en todo el proyecto.
--
Un saludo,
José F. Giménez
--
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

TMessageBox

Mensaje por Xevi »

Jose,
He visto que habeis añadido esas constantes en constants.ch.
He sacado mi define...
Ahora ya funciona correctamente.
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribió en el mensaje news:43df3a3c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Si, tengo definido mbOk
#define mbOk 4
¿Es eso correcto???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:43df3992$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
Este mismo código, en un proyecto NUEVO me funciona tal como me comentas.
Ahora bien, te puedo asegurar que en MI PROYECTO salen DOS BOTONES "SI" y "NO"
Tendré que investigar ¿que hago mal en mi proyecto???
Revisa bien por si estuvieras definiendo mbOK por algún sitio. Puedes usar Ctrl+Shift+F para buscar en todo el proyecto.
--
Un saludo,
José F. Giménez
--
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

TMessageBox

Mensaje por Xevi »

This is a multi-part message in MIME format.
------=_NextPart_000_004F_01C68569.6C5974A0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0050_01C68569.6C5974A0"
------=_NextPart_001_0050_01C68569.6C5974A0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Ultimamente, observo que cuando la caja de di=E1logo MessageBox le pongo =
el estilo
:nStyle :=3D mbYESNO
DESACTIVA la cruz de cerrar la ventana !!!
Necesito que est=E9 activo!!! pues si cierro el cuadro di=E1logo =
pulsando ESC quiero abortar un proceso que no se cumpliria con el Si ni =
el No... vaya como si fuera YESNOCANCEL pero sin mostral el bot=F3n =
cancelar.
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:[email=43df39be@ozsrvnegro.ozlan.local...]43df39be@ozsrvnegro.ozlan.local...[/email]
Ademas de colocarme dos botones "SI" y "NO"...
Me DESACTIVA la cruz de cerrar la ventana !!!
Para que funcione en MI APLICACION...
WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
:cTitle :=3D "TITULO"
:cText :=3D "Texto"
* :nStyle :=3D mbOk
:Run()
END
Seguir=E9 investigando, aunque no es problema... no le pongo nStyle =
cuando se trata de 1 solo bot=F3n y listo!!!
Un Saludo,
Xevi.
"Xevi" <xevicomas@terra.es> escribi=F3 en el mensaje =
news:43df37bd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Jose,
Este mismo c=F3digo, en un proyecto NUEVO me funciona tal como me =
comentas.
Ahora bien, te puedo asegurar que en MI PROYECTO salen DOS BOTONES =
"SI" y "NO"
Tendr=E9 que investigar =BFque hago mal en mi proyecto???
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribi=F3 en =
el mensaje news:[email=43df3061@ozsrvnegro.ozlan.local...]43df3061@ozsrvnegro.ozlan.local...[/email]
Xevi,
> Ahora no se puede crear CajasDi=E1logo con un s=F3lo bot=F3n d =
eOK ???
>=20
> WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
> :cTitle :=3D "TITULO"
> :cText :=3D "Texto"
> :nStyle :=3D mbOk
> :Create()
> END
>=20
>=20
> Se crean DOS BOTONES con "SI" "NO"
Acabo de probar exactamente este c=F3digo:
WITH OBJECT oMessageBox1 :=3D TMessageBox():New()
:cTitle :=3D "TITULO"
:cText :=3D "Texto"
:nStyle :=3D mbOk
:Run()
END
y sale esto:
Por favor, env=EDame un ejemplo que salga mal.
--=20
Un saludo,
Jos=E9 F. Gim=E9nez
------=_NextPart_001_0050_01C68569.6C5974A0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2873" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Ultimamente, observo que cuando la caja =
de di=E1logo=20
MessageBox le pongo el estilo</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>:nStyle :=3D mbYESNO</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>
<DIV><FONT face=3DArial size=3D2>DESACTIVA la cruz de cerrar la ventana=20
!!!</FONT></DIV>
<DIV>Â</DIV>
<DIV>Necesito que est=E9 activo!!! pues si cierro el cuadro di=E1logo =
pulsando ESC=20
quiero abortar un proceso que no se cumpliria con el Si ni el No... vaya =
como si=20
fuera YESNOCANCEL pero sin mostral el bot=F3n cancelar.</DIV>
<DIV>Â</DIV>
<DIV>Gracias.</DIV>
<DIV>Â</DIV>
<DIV>Un Saludo,</DIV>
<DIV>Xevi.</DIV>
<DIV>Â</DIV>
<DIV>Â</DIV></FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A =
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>>=20
escribi=F3 en el mensaje <A=20
=
href=3D"news:43df39be@ozsrvnegro.ozlan.local">news:43df39be@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Ademas de colocarme dos botones "SI" =
y=20
"NO"...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Me DESACTIVA la cruz de cerrar la =
ventana=20
!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Para que funcione en MI=20
APLICACION...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT oMessageBox1 =
:=3D=20
TMessageBox():New()<BR>ÂÂÂÂÂ=20
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR>ÂÂÂÂÂ=20
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR>*ÂÂÂÂÂ=20
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>ÂÂÂÂÂ :Run()<BR>ÂÂ=20
END<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Seguir=E9 investigando, aunque no es =
problema... no=20
le pongo nStyle cuando se trata de 1 solo bot=F3n y =
listo!!!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Â</DIV></FONT>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Â</DIV></FONT>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@terra.es">xevicomas@terra.es</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:43df37bd$1@ozsrvnegro.ozlan.local">news:43df37bd$[email=1@ozsrvnegr]1@ozsrvnegr[/email]=
o.ozlan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Jose,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Este mismo c=F3digo, en un proyecto =
NUEVO me=20
funciona tal como me comentas.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Ahora bien, te puedo asegurar que =
en MI=20
PROYECTO salen DOS BOTONES "SI" y "NO"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Tendr=E9 que investigar =BFque hago =
mal en mi=20
proyecto???</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Jose F. Gimenez" <jfgimenez@wanadoo.es> =
escribi=F3 en=20
el mensaje <A=20
=
href=3D"news:43df3061@ozsrvnegro.ozlan.local">news:43df3061@ozsrvnegro.oz=
lan.local</A>...</DIV>
<DIV><FONT face=3DArial size=3D2>Xevi,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>> Ahora no se puede crear =
CajasDi=E1logo con=20
un s=F3lo bot=F3n d eOK ???<BR>> <BR>>ÂÂ WITH =
OBJECT=20
oMessageBox1 :=3D =
TMessageBox():New()<BR> >ÂÂÂÂÂ=2 0
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR> >ÂÂÂÂÂ=2 0
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR> >ÂÂÂÂÂ=2 0
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>>ÂÂÂÂÂ =
:Create()<BR>>ÂÂ=20
END<BR>> <BR>> <BR>> Se crean DOS BOTONES con "SI"=20
"NO"<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Acabo de probar exactamente este=20
c=F3digo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>ÂÂ WITH OBJECT =
oMessageBox1 :=3D=20
TMessageBox():New()<BR>ÂÂÂÂÂ=20
:cTitleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
"TITULO"<BR>ÂÂÂÂÂ=20
:cTextÂÂÂÂÂ&amp ;nbsp;ÂÂÂ :=3D=20
"Texto"<BR>ÂÂÂÂÂ=20
:nStyleÂÂÂÂÂ&am p;nbsp;ÂÂ :=3D=20
mbOk<BR>ÂÂÂÂÂ :Run()<BR>ÂÂ=20
END<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>y sale esto:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT><IMG alt=3D"" hspace=3D0=20
src=3D"cid:004a01c68558$a8cbc2a0$[email=0cc8a8c0@Xevi]0cc8a8c0@Xevi[/email]" align=3Dbaseline=20
border=3D0></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV><FONT =
face=3DArial size=3D2>
<DIV>Por favor, env=EDame un ejemplo que salga mal.</DIV>
<DIV>Â</DIV>
<DIV><BR>-- <BR>Un saludo,</DIV>
<DIV>Â</DIV>
<DIV>Jos=E9 F.=20
Gim=E9nez</FONT></DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE ></BODY></HTM=
L>
------=_NextPart_001_0050_01C68569.6C5974A0--
------=_NextPart_000_004F_01C68569.6C5974A0
Content-Type: image/png;
name="msgbox.png"
Content-Transfer-Encoding: base64
Content-ID: <004a01c68558$a8cbc2a0$[email=0cc8a8c0@Xevi]0cc8a8c0@Xevi[/email]>
iVBORw0KGgoAAAANSUhEUgAAAGgAAABrCAIAAAAU6lBYAAAAAXNSR0IArs4c 6QAAAARnQU1BAACx
jwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdw nLpRPAAAEcBJREFU
eF7tnAtQVEe6xxtGQLOV3N1oLBNdXd/GV8C3Ir7fgIIIgg9EFCTGRzTuI9mY 1CZlZfPwVrxJbnbd
3ZRUdr3XRGJImV03D2tN7U1yNxoQFdHgCsx7QBhA3q/77/Od6TnMDHDOIK7h nql/DX36fKdP92++
7q+7zwwBZfYCpngNSK0JCDAgo60phGcbAuSTwX15OsTA+hhYcwveAwyGtpY2 1tzKAgNZIGOtrlKa
caD+xe/V9SugsWsbsmhTFoh0S7sLG+gIpQWzxmYWLFW6MZAF9+F5rJmrSWpy UBtjfSTjPqypjTXY
yt4LblcUwJEConKh4B23Q/a39H+m7ZEXuEYeaht7uC3stbawN9vmHOGKeItr /tsdigxUqpNylKdU
luazbsikaot3aoi3eDPbC82HQCN4VzObn8fCvhS4mKAWuNkOaoG7KkMOtMJU sBv+chsEfBNedwsc
ScrMeyGNepKoMpSm9pMTUHOEkKk8JHcRIg5QyN4WiCVWs/A8IsbBsYX/YDEl LO56QFopxHbcIgGi
YU+NYW8jULKnWgz72yBK411kUoIyg/e1wmHJ8g4qYFerSuGmsKTaUq1IATsb A9MaDBm3DWmVASk1
bEsV2yC9b6zCoZyTUs5Im8r4O87GO1hiKRdyoHVGtvgSiyhUgIu8wDbcdCvZ ylLtBBH4SBxiB+Jn
USehtErU717RtjIDtLU0YKsDvQpiG6ws0cIVb5YFIqS4Yq6YIiggupCtggrY 8qtcSIDazG/YoPel
wDDlHD8NcHHXZRFBiZ3AJ7vh41VMyOWYOMURKz8u+nxUyc423WmBi4ckRkEJ xvQ37OaypjaNr/RX
ioIWXGAR5zk14IIeOiaBgxb+A5GhI3DUhZW9mGDxHDjmVgdLtnMBAdWYPs9/ iYTvkDfRIQaimKL0
I9bG4sLSV5+y/zLFui/esjPanL7CtHWRadsS05Z5kHFTOFSSMJUrLrQoelzh 0mG5cdMqCvLSX7qJ
yMBBjf8LG3NSAjfquC9wJqXHCXACloKXlVuKT9ijC4i+0FFCtLPzBPUgTRJd T6KGfgc/Kzv8s4p3
X3cef7P86KHSwz91vLTH8asM+/Pp9mdTbU9vsT2dbPtpknV/gmVPjDljpSll flH8lNxlI/8cGWp2
NMjgRvyVE3vgIEOP5eAizgcuVXocB8ddiRxKGu+4tjrcmUoXU3qZShaazDQh 4yMUYh2GKiDj1AQ4
+/NpzhNvV548Wv6Hl8uOPFP66n7Hod32X2XYnksDO/svt9p+vtl2IMmyd615 Z5Rp2+LipJl5q8a9
N/UhQOfgJn7NvMHx8Q/DHB/gJHdL5siEaHCl8dXdN312zy69TGmgEp96cDIs QuYCF1nEIovQeNuB
RCCryDx8663nS1/Z53hxp/3gdtsvkq1PJVn3rrPsjjVnRJozVvHOmzLfuGlO UcK0vKjxJ2cM4uAw
wAHcT75WeBxYYnaHqIEPBy2B+2C0koYtJThlYOKxyafHaaLWE8axZgWyEhZt 5HKBs+5dW3bk6bI3
ngW1uvNfAId1f5J1d5w5I9q0fZlpy0LjxjnGpFnIr/40qyQ+7GZc6KXVE7Pm /JiDm5Eng8MYx7vq
I59xluEAV8jdG43ZYO0o7IAdnQK4zkOTO9LHm8kSOSKhPIt0xtGKa2Y52CHx 7H9Vehgw4NAqQtYe
HAJC6Ut7Sl95Er4m6i9RW27asgDUShKmifyStZNurp18KdoLnDzGARxYLpDm LHA3gEuywePuG/Qi
RKVQ2iMH7HzaiEtE40WO9ymyqW9stTub+0acRYHXC8vqG1p2vu3wZKfSPQVf X+DMacswovEe+lya
7efJgpFp62LT5ghj4gw3tdVjS2LGF8VOvBQ9Pmv2ENnjHs3lXdXtcQIc7iqD k6bOKeWiqUHbykki
x7C5jOTGAeKJFq3gPr9Uj0veef9av+kf4e5wNxzmFdzqE3vTT3ZoAhridjd3 VwU42zMpNsRQvB/Y
aN2zTpDCiOamFj2qJHJESfToophHL0c9+sHswRzc9ALmGxyGUkwmJHeT1xx+ gEuyKcDBa7h8eZx8
CmedNS3k1MGR14V9ZVV93wVf0qE/En4XaXX1ViPuYtw8F0GTh86fbcboZtkb Z35itceYY4oda1oz
0hj1E2P0iOI1o6+sGn1q5sMyOHgY2GEqx8c4+N6sArbMxD8lWppJKzVDSiUk 2oz1P8ntcZJBO4+T
lnVucLTKU+R4n1JiFYDIrF9olj/ICHRsaXtxB+TgkmZad8fa9q+3IYzuW2/Z s5ZPg3csF+zM6yea
48aYY0aYo4eao4eVrB6ev3L4qekDObg512SnQ1ft/2p7cC5qWN/S0rdrcAq4 LLEcUtDhh8oc71Od
29PlmhWP2OKSgiDuXrJuivnxSOuT66z7EmxPxiPIWnZFe3icNX6Mde1wy+oh lughxqgh+cuGfDj1
QQ4uvIiDG5nPPY6DG5aH5T73OAwNBE6iZthaG7C9wQ1uZ0OwJLfHba2FDeTG gf2GjVXuw41870GZ
430KZ501rdRVyZjs0VWVOXw/xw+58TlZrBPFFq+ZgDma5YnVQGbdG2fZEyuo WdMiKN1aU2lbN9wW
M9gaPci0atDVRQM/Cvs3Dm5BMWc3uZCDe+g/JHA45uAcRI2D296ATRioM3AZ fKNGaUNOihBJIOiQ
3La+vkkZo8Up7O3kFvEx7p0/fsv3eTbUHD3L5yX/e97Yb2o25fgvYu3Ch2KL IkcbkyPMO1ZYdq22
7I5xU8tYZE2ba0t1R1V7zMO2qIGm5f0L5v8we9J9HNxCGwsvUYCD73Fw0rhA 1NBaCZwho9ENblcz
dkEhZQ4MlDa4iqU0fJ7PQeRdtiEN5Rbzw/dOXe436bjb46RTpIzMJsw/HKW3 g+OtOLRXtgI9KIes
uiJsNCQ2NTAhgs7Z3YZw95tLh5YkzjClLjLvWCmoWTKWWncstG4Pt6VOdyRP Evn2VT+yLLn/avgP
sicEc3BAROz47gg8jsAh+qCfujopUTM8IU9Kecjb1Uy7oKLxSBv2tAXu5P4l 97W0FpbWAnx/+MQJ
EJR/zdr6ehaf8QUn8OHZ4wVj6LmsesetOmG/+7Wr/R47TqdILKVZtejzgL2U IIhJ9SyRl//PBYOK
Yydj5gF2Nec+Ro4lbbElbaFle4Q1dZYtZYp903hH0ijk153JtK94wLyg39UZ QR+ODeTglldwcLMc
fP3g6qolLBLhj+95wt0ENYADL5rl0tYubfyKHGSCHUQ5gCgUvLm033w+oYX6 rrwQnFJBp5RzaeVV
QduqlfZBaXXK0vB5+COBW8KHxt+YOwC9tXhdmHHjbFNyhGlLhCk53Jw825w8 07J5inXjRNv60fZ1
w9BP4W62JT8wRQTlTw08NSZABgenAzisUDm4R3K4+0ngKCYIcMHYNN/bAjpK asSOdsk5OLFFLhEk
Kdv8L0m3o+zCh8YXzHzgu8VDbkSN++fax27GTy1aP60oPqwoIaw4YXJJ/HhT 3GhTzDBz1MPmFf3N
i+83zQspmhV48TH23kjGwUVVc6cDOLmrtgdH7GjwEt2T+5rL3QS4ztkJiJ0n eg6rNzvzrZYLK8ed
n9X//LzBOUuG5ywfnbN8TM6yUbnLR15cNjxv6dArSwdfWTQwf0H/KxEP5M/u d2V6n4uhAV+MZ+/P
HeYJjk9HFODoyQU5Hfkdn4K4RjcZ337ZBzvyuJ5job5kz34tOV3629Xl+bkf Lxl3fML9J0N/9H7Y
gyemDDgR+uDJKf2zpvT/IOyH2aH3fzT5vtOT+maPD84eZzg9NuCDUezk3GGO yznpb1S28zgXOAQH
aYzDNEp6p2WD5Hp4BCPhI7liK4Y/b1HDyFtVyp+RS814J3dPV+yWxrigjbXp /ylPM73DVEc55rLm
9Ncrg9ZU8X5KYxy6ajtwWBVjd0R+UCAvvBAu3A+rlM+xMhrxwM1DFFJpUqJa KsOl6gLBCNQoktJc
ZH0tQioXEpiXxPKpCX+nhFCsk0VVYJ4sn8WIRoOahzzB8RlJEX+QszgnYEku ttH5Tjq2NiVhw57E
dzrBV2yuurenXdutys2cO5hehpmmOvE9S6Nv48WFfPcMwkqJNO+6fEj5EOXg HStTCKt4WqIigXdQ
8g1ucQ4HJ7ET+Aiih8iAS9grLnSfFWYdJHA7NZLvQrfoSmoK9NOGllwUVUOm XR+4s7xv/A3xrQg9
0QkBFn6dDT/B+r+mg5O/c6TSXdzg+uke5/q+lhp2fGT88THucTo4Nbzc3+7S wWni5QNc37BrenBQ
D9HdVXVw6qnxb3eJrhoSVqB7nHp2HNxQKTjo4NRTkz1OB6cJmfzVX93j/KCm e5y21YISsXuM66sH
B00rh3lYOWTy4KCD09RnWTfBefxASOW9cZVKy3vWzA2uO9MRrSC02t+D+FjE DTZU6qp3EJxwQzly
K/yLkHkbUM49CKijKrnBdWeMU7bZZ1rw6gild/49DlG5VvV/yeUBSznwubcT vPyuc4jfI3D+7450
5HHtJj69DxwtubqzO/L/tKveWXA+x37vDquMBh6x4h7vpF5r1Sn+d9XvRVPv bCWlqErbSjo4TUsu
Aa4705E7+2F+L0rTF/l+bpDo4LoNTh/jNA0RimcOenDQFhxcD2v04KDN47Af R7sjOji/wekTYA2B
gm9kujxOB6eD0zLMa+qh7kW37nE6OA0dzT9Y7bYXdY/zD6IeHPz0Ux2cDq7n I6k+xvnpZd0FZzXn
Feb/vSDv8/yLn90F5Xz1Yc9J1B/NuXb5b2gXWqcmXPgzxqF0Y+E3Gb8+NmLd C2zugd6hAVEHEw8e
NRd/a7p5vqfA4ZMBtbHRh761tvUmoUUZv87sQY8DOPjaZ5droZiIyb3mHQ1B u8pL+f9a7VJs3g3x
/Ti1i3wMB+ien1yqSZgzuZm/mnqBEsInfXKpFu2qcpq7pMafHfsBDh6HG/wl 9/aZi7cbGxt6herP
XKw5k1uDdlVXWVSB41+eljcy1XocgTt9oTpp7IT6+tpeoLq6msSxEz7+tloC Z9UGLkT1T5IIXPY3
VVBtbXUvUE0Nb0v2+aq7AS7ra+fCyY/W1oKdBtHXRDRd4mHczct93rqmpnLh 5HEnv3LeDXAn/qfi
v7904paaROA0XeJh3M3Lfd769m0nmgPdDXB/OndrxYTpuKV6oc1kLBKUppc4 5fOwSwNlycry1VSv
urpi5fgZf/qiXAs4TEfk33JpCw7HzpZBuKV6oT1k7J3wyBc2wtJnjvLWZEnQ 1VeJLKuqyjPP3so8
W3Y3wP3+U8e++KnV1eXqJTWJ23snRL5wQLIRliKtzKFM8fKwV1+xqqpb+9ZO /f2npdrAuX4Ep83j
fnPG8ZszdtxSpZQtpDQupHchj0MPA+9LlPY+C1RZt8rKst9Kzbkb4N48bfvF htDKylsqhYYpLenQ
ZyaZeRt0lNORvcqKwczpLHt6c+hbp213A9yRbOuRbAs+K5WSmu02FofCE+ls R4fKy8nGw55yPO6i
sm5OZyk1RwM4/rDGr+Dw76csqcsjcMseFUD0aPlUeEWFPXXZvMOnzHcD3KtZ JsjpdPSoJHA9ewuU
X1Fu482RwdlULbmwyHf9JElbcHg5y5S2ZG5pqbmMy/L9FZpgtxWjLWgRPO52 lV0bOPW/c/ju8jns
l+I2xK7XvKMhaFddbYVacDQBVg/u5rWv1j97FPul0QfPPf5Cea8RWrTlxXca G2p6CpzFmIuidx9+
t5c9c0g9dKyurqK5qV4bOPU/uywv/Q7bpPW1zqbGOtymubmhR9Xa2tJzEjVv aW5qacFWdmOV06gK
nNjIVA9OTbm93kb68rTGHeBeD0VNA5W/c1A7HVFTbq+30cF1/STQpxPov3Pw F5z49xn6L2s0DS/K
/zuij3EavE8f4zTAavc1L/HfvNQvuTS5dG811j2uGx6ndZHfW51IU7vc/7CF PZyD3vrgWjP9p8yQ
NQ6IrajU5YMABrhJZ+XnqmzgB3wTnSvTlaBDkemVD19ViixFDi8n0/NQtkG+ pHaFS/b8kvbyvMRl
5qOe4pR3zX02SmHWSX2oVm7hqnf54eDf8f04NuC3/I8ujQT+D6JkIBcY9Rmp AAAAAElFTkSuQmCC
------=_NextPart_000_004F_01C68569.6C5974A0--

Attached files
Arriba
jlalin
Mensajes: 926
Registrado: Sab Dic 25, 2010 11:10 pm

TMessageBox

Mensaje por jlalin »

Xevi,
> Ultimamente, observo que cuando la caja de diálogo MessageBox le pongo el estilo
> :nStyle := mbYESNO
> DESACTIVA la cruz de cerrar la ventana !!!
Sí­, antes no lo hací­a por causa de un bug.
> Necesito que esté activo!!! pues si cierro el cuadro diálogo pulsando ESC quiero abortar un proceso que no se cumpliria con el Si ni el No... vaya como si fuera YESNOCANCEL pero sin mostral el botón cancelar.
Este comportamiento es el estándar de Windows. Si usas el estilo YESNO,
el sistema espera que elijas uno de los dos puesto que el aspa para
cerrar y CANCEL tienen el mismo valor.
Si quieres que no desactive el aspa para cerrar tendrás que usar el
estilo YESNOCANCEL o similar.
Saludos,
José Lalí­n
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

TMessageBox

Mensaje por jfgimenez »

Xevi,
Ultimamente, observo que cuando la caja de diálogo MessageBox le pongo el estilo
:nStyle := mbYESNO
DESACTIVA la cruz de cerrar la ventana !!!
Necesito que esté activo!!! pues si cierro el cuadro diálogo pulsando ESC quiero abortar un proceso que no se cumpliria con el Si ni el No... vaya como si fuera YESNOCANCEL pero sin mostral el botón cancelar.
Se me ocurre una posibilidad... usando el componente TMessageBox puedes poner nStyle = mbOKCANCEL y aButtons = { "Si", "No" }. De esa forma, el comportamiento es exactamente igual que el Aceptar/Cancelar, pero el texto de los botonoes es Si/No; vamos, que pulsando escape es NO.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

TMessageBox

Mensaje por Xevi »

Jose,
No me sirve... me acepta el pulsar la tecla escape, pero me da como valor el botón NO
El caso serí­a que aceptara los valores mbYESNOCANCEL pero solo mostrar dos botones.
El botón 1 devolver el valor mrYES el boton 2 devolver el valor mrNO y ESCAPE devolver mrCANCEL
Gracias.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:[email=447eb3f6@ozsrvnegro.ozlan.local...]447eb3f6@ozsrvnegro.ozlan.local...[/email]
Xevi,
Ultimamente, observo que cuando la caja de diálogo MessageBox le pongo el estilo
:nStyle := mbYESNO
DESACTIVA la cruz de cerrar la ventana !!!
Necesito que esté activo!!! pues si cierro el cuadro diálogo pulsando ESC quiero abortar un proceso que no se cumpliria con el Si ni el No... vaya como si fuera YESNOCANCEL pero sin mostral el botón cancelar.
Se me ocurre una posibilidad... usando el componente TMessageBox puedes poner nStyle = mbOKCANCEL y aButtons = { "Si", "No" }. De esa forma, el comportamiento es exactamente igual que el Aceptar/Cancelar, pero el texto de los botonoes es Si/No; vamos, que pulsando escape es NO.

--
Un saludo,
José F. Giménez
http://www.xailer.com
--
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

TMessageBox

Mensaje por jfgimenez »

Xevi,
No me sirve... me acepta el pulsar la tecla escape, pero me da como valor el botón NO
El caso serí­a que aceptara los valores mbYESNOCANCEL pero solo mostrar dos botones.
El botón 1 devolver el valor mrYES el boton 2 devolver el valor mrNO y ESCAPE devolver mrCANCEL
Entonces, y salvo alguna genialidad de mi tocayo Lalí­n ;-), me temo que tendrás que hacerlo estilo mbYESNOCANCEL. Eso, o hacerte tu mismo el diálogo a tu gusto. No se me ocurre ninguna otra cosa.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
Xevi
Mensajes: 1706
Registrado: Jue Sep 08, 2005 12:58 pm

TMessageBox

Mensaje por Xevi »

Jose,
Opto por construirme el diálogo a mi gusto...
Gracias por tu tiempo.
Un Saludo,
Xevi.
"Jose F. Gimenez" <jfgimenez@wanadoo.es> ha escrit al missatge del grup de discussió: 447ed0d9$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
Xevi,
No me sirve... me acepta el pulsar la tecla escape, pero me da como valor el botón NO
El caso serí­a que aceptara los valores mbYESNOCANCEL pero solo mostrar dos botones.
El botón 1 devolver el valor mrYES el boton 2 devolver el valor mrNO y ESCAPE devolver mrCANCEL
Entonces, y salvo alguna genialidad de mi tocayo Lalí­n ;-), me temo que tendrás que hacerlo estilo mbYESNOCANCEL. Eso, o hacerte tu mismo el diálogo a tu gusto. No se me ocurre ninguna otra cosa.
--
Un saludo,
José F. Giménez
http://www.xailer.com
--
Arriba
Responder

Volver a “Xailer Pro Spanish”