<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:arial,helvetica,sans-serif;font-size:10pt"><div>Hola Paola, tanto tiempo!!!<br><br>procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;<br>>
Shift: TShiftState);<br>> begin<br>> if (key = VK_ESCAPE)
then begin<br>> Key := 0;<br>> close;<br>> end;<br>>
end;<br></div><div style="font-family: arial,helvetica,sans-serif; font-size: 10pt;"><br>Esto está bien, pero en delphi lo meto en el evento onKeyPress<br><br>Saludos,<br><br>Fernando<br>MDQ<br><br><br><br><br><br><div style="font-family: arial,helvetica,sans-serif; font-size: 13px;"><font face="Tahoma" size="2"><hr size="1"><b><span style="font-weight: bold;">De:</span></b> "lazarus-es-request@lists.lazarus.freepascal.org" <lazarus-es-request@lists.lazarus.freepascal.org><br><b><span style="font-weight: bold;">Para:</span></b> lazarus-es@lists.lazarus.freepascal.org<br><b><span style="font-weight: bold;">Enviado:</span></b> miércoles, 7 de julio, 2010 13:58:07<br><b><span style="font-weight: bold;">Asunto:</span></b> Resumen de Lazarus-es, Vol 34, Envío 4<br></font><br>Envíe los mensajes para la lista Lazarus-es a<br> <a ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org"
href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a><br><br>Para subscribirse o anular su subscripción a través de la WEB<br> <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br><br>O por correo electrónico, enviando un mensaje con el texto "help" en<br>el asunto (subject) o en el cuerpo a:<br> <a ymailto="mailto:lazarus-es-request@lists.lazarus.freepascal.org" href="mailto:lazarus-es-request@lists.lazarus.freepascal.org">lazarus-es-request@lists.lazarus.freepascal.org</a><br><br>Puede contactar con el responsable de la lista escribiendo a:<br> <a ymailto="mailto:lazarus-es-owner@lists.lazarus.freepascal.org" href="mailto:lazarus-es-owner@lists.lazarus.freepascal.org">lazarus-es-owner@lists.lazarus.freepascal.org</a><br><br>Si responde a algún
contenido de este mensaje, por favor, edite la<br>linea del asunto (subject) para que el texto sea mas especifico que:<br>"Re: Contents of Lazarus-es digest...". Además, por favor, incluya en<br>la respuesta sólo aquellas partes del mensaje a las que está<br>respondiendo.<br><br><br>Asuntos del día:<br><br> 1. Re: iconos correspondientes a bk* (christian Ortiz)<br> 2. Re: iconos correspondientes a bk* (Paola Bruccoleri)<br> 3. Re: iconos correspondientes a bk* (José Mejuto)<br> 4. Re: ruidito (Paola Bruccoleri)<br> 5. Re: ruidito (José Antonio Cuello)<br> 6. mac y Tprocess (christian Ortiz)<br> 7. Re: iconos correspondientes a bk* (Paola Bruccoleri)<br> 8. Re: iconos correspondientes a bk* (José Mejuto)<br> 9. Re: ruidito (Maxi)<br><br><br>----------------------------------------------------------------------<br><br>Message: 1<br>Date: Wed, 7 Jul 2010 08:50:45 -0500<br>From: christian
Ortiz <<a ymailto="mailto:xortix@gmail.com" href="mailto:xortix@gmail.com">xortix@gmail.com</a>><br>Subject: Re: [Lazarus-es] iconos correspondientes a bk*<br>To: Spanish version of Lazarus List<br> <<a ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org" href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>Message-ID:<br> <<a ymailto="mailto:AANLkTikyWTatI8QHFgBHEyP_iU-mJxKMYdX_IbmDixBj@mail.gmail.com" href="mailto:AANLkTikyWTatI8QHFgBHEyP_iU-mJxKMYdX_IbmDixBj@mail.gmail.com">AANLkTikyWTatI8QHFgBHEyP_iU-mJxKMYdX_IbmDixBj@mail.gmail.com</a>><br>Content-Type: text/plain; charset="iso-8859-1"<br><br>mejor usa la propiedad glyph<br><br>El 7 de julio de 2010 04:11, José Mejuto <<a ymailto="mailto:joshyfun@gmail.com" href="mailto:joshyfun@gmail.com">joshyfun@gmail.com</a>> escribió:<br><br>> Hello Paola,<br>><br>> Wednesday, July 7,
2010, 12:20:27 AM, you wrote:<br>><br>> PB> se pueden cambiar los iconitos que están relacionados a los TBitBtn?, o<br>> PB> sea cuando elijo bkCancel, etc...<br>> PB> muchas gracias<br>> PB> chauuuuuuuuu<br>><br>> En todas las compilaciones cambiando el recurso correspondiente de<br>> Lazarus, y los tienes en la carpeta Lazarus\Images\buttons<br>><br>> Si lo quieres hacer botón por botón, simplemente asignale un picture<br>> a cada uno de los botones, pero el gráfico no cambia en función del<br>> bkCancel, bkOK, ...<br>><br>> --<br>> Best regards,<br>> José<br>><br>><br>> _______________________________________________<br>> Lazarus-es mailing list<br>> <a ymailto="mailto:Lazarus-es@lists.lazarus.freepascal.org" href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>> <a
href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>><br><br><br><br>-- <br>Christian<br>------------ próxima parte ------------<br>Se ha borrado un adjunto en formato HTML...<br>URL: <<a href="http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100707/099d229a/attachment-0001.html" target="_blank">http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100707/099d229a/attachment-0001.html</a>><br><br>------------------------------<br><br>Message: 2<br>Date: Wed, 07 Jul 2010 11:22:52 -0300<br>From: Paola Bruccoleri <<a ymailto="mailto:pbruccoleri@adinet.com.uy" href="mailto:pbruccoleri@adinet.com.uy">pbruccoleri@adinet.com.uy</a>><br>Subject: Re: [Lazarus-es] iconos correspondientes a bk*<br>To: Spanish version of Lazarus List<br> <<a
ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org" href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>Message-ID: <<a ymailto="mailto:4C348DBC.1060003@adinet.com.uy" href="mailto:4C348DBC.1060003@adinet.com.uy">4C348DBC.1060003@adinet.com.uy</a>><br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br><br>José Mejuto escribió:<br>> Hello Paola,<br>><br>> Wednesday, July 7, 2010, 12:20:27 AM, you wrote:<br>><br>> PB> se pueden cambiar los iconitos que están relacionados a los TBitBtn?, o<br>> PB> sea cuando elijo bkCancel, etc...<br>> PB> muchas gracias<br>> PB> chauuuuuuuuu<br>><br>> En todas las compilaciones cambiando el recurso correspondiente de<br>> Lazarus, y los tienes en la carpeta Lazarus\Images\buttons<br>> <br>Hola José y Cristian..<br>gracias por sus sugerencias...<br><br>no tengo esa carpeta.. ayer estuve
buscando por todo c:\lazarus la <br>imagencita de cerrar y no la encontré.. :(<br>> Si lo quieres hacer botón por botón, simplemente asignale un picture<br>> a cada uno de los botones, pero el gráfico no cambia en función del<br>> bkCancel, bkOK, ...<br>> <br>mi idea era de cambiar algún ícono para todas las aplicaciones, por ej <br>el bkClose, que es esa cruz negra bien fea.. así me da menos trabajo....<br>chauuuuuuuuuuuu<br><br><br><br><br><br><br>------------------------------<br><br>Message: 3<br>Date: Wed, 7 Jul 2010 17:30:13 +0200<br>From: José Mejuto <<a ymailto="mailto:joshyfun@gmail.com" href="mailto:joshyfun@gmail.com">joshyfun@gmail.com</a>><br>Subject: Re: [Lazarus-es] iconos correspondientes a bk*<br>To: Spanish version of Lazarus List<br> <<a ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org"
href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>Message-ID: <<a ymailto="mailto:839401399.20100707173013@gmail.com" href="mailto:839401399.20100707173013@gmail.com">839401399.20100707173013@gmail.com</a>><br>Content-Type: text/plain; charset=ISO-8859-1<br><br>Hello Paola,<br><br>Wednesday, July 7, 2010, 4:22:52 PM, you wrote:<br><br>>> En todas las compilaciones cambiando el recurso correspondiente de<br>>> Lazarus, y los tienes en la carpeta Lazarus\Images\buttons<br>PB> Hola José y Cristian..<br>PB> gracias por sus sugerencias...<br>PB> no tengo esa carpeta.. ayer estuve buscando por todo c:\lazarus la<br>PB> imagencita de cerrar y no la encontré.. :(<br><br>Uy perdón era:<br><br>Lazarus\lcl\images\buttons :) Perdón.<br><br>-- <br>Best regards,<br> José<br><br><br><br><br>------------------------------<br><br>Message: 4<br>Date: Wed, 07 Jul 2010 12:31:26
-0300<br>From: Paola Bruccoleri <<a ymailto="mailto:pbruccoleri@adinet.com.uy" href="mailto:pbruccoleri@adinet.com.uy">pbruccoleri@adinet.com.uy</a>><br>Subject: Re: [Lazarus-es] ruidito<br>To: Spanish version of Lazarus List<br> <<a ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org" href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>Message-ID: <<a ymailto="mailto:4C349DCE.1040301@adinet.com.uy" href="mailto:4C349DCE.1040301@adinet.com.uy">4C349DCE.1040301@adinet.com.uy</a>><br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br><br>Hola José..<br>> El "clin" ese creo que te pasa cuando el foco lo tiene un TEdit. No<br>> hay mucho que puedas hacer ahora mismo ya que el reasignado de teclas<br>> creo que no funciona en ninguna plataforma, de todos modos puedes<br>> probar a poner:<br>><br>> procedure
TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;<br>> Shift: TShiftState);<br>> begin<br>> if (key = VK_ESCAPE) then begin<br>> Key := 0;<br>> close;<br>> end;<br>> end;<br>><br>> <br>si, ese clin lo hace cuando pasás por algunos controles, como los <br>combos, rx, etc... otros no.<br>No me funcionó ese tip que me distes.. lo sigue haciendo igual..<br><br>Así que esto por ej de pasar con enter los controles no funciona en linux?<br>Es indispensable para sistemas de gestión, donde se factura sin parar!!!<br>chauuuuuuuuuu<br><br><br><br><br><br>------------------------------<br><br>Message: 5<br>Date: Wed, 07 Jul 2010 17:42:13 +0200<br>From: José Antonio Cuello <<a ymailto="mailto:josea@artextrading.com" href="mailto:josea@artextrading.com">josea@artextrading.com</a>><br>Subject: Re: [Lazarus-es] ruidito<br>To:
Spanish version of Lazarus List<br> <<a ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org" href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>Message-ID: <<a ymailto="mailto:1278517333.7913.17.camel@ubuntu.artextrading.com" href="mailto:1278517333.7913.17.camel@ubuntu.artextrading.com">1278517333.7913.17.camel@ubuntu.artextrading.com</a>><br>Content-Type: text/plain; charset="UTF-8"<br><br>Hola, creo que si lo tratas en el keypress en vez del key down puedes<br>anular la pulsación con key := #0 ya que en el keydown la tecla ya ha<br>sido pulsada y se lanzan los eventos de teclado igualmente.<br><br>Bueno no se si me he explicado correctamente, pero creo que para que<br>haya un keydown debe haber keypress pero no al reves.<br><br>Yo controlo la pulsación del enter y el escape así y no me da problema.<br><br>procedure TBaseForm.FormKeyPress(Sender: TObject; var Key:
char);<br>begin<br> if assigned( Screen.ActiveControl ) then<br> begin<br> if (Key = #13) then<br> begin<br> if Screen.ActiveControl.InheritsFrom(TCustomButton) then Exit;<br><br> if Screen.ActiveControl.InheritsFrom(TWinControl) and not<br>Screen.ActiveControl.InheritsFrom(TCustomMemo) then<br> begin<br> Key := #0;<br> repeat<br> SelectNext(Screen.ActiveControl, True, True);<br> until (Screen.ActiveControl = nil) or<br> (not (Screen.ActiveControl.InheritsFrom(TCustomPage) or<br>Screen.ActiveControl.InheritsFrom(TCustomNotebook)));<br> end;<br> end;<br> end<br> else<br> if (Key = #13) then<br> begin<br> Key
:= #0;<br> SelectNext(nil, True, True);<br> end;<br>end;<br><br>Espero que te sirva<br><br>El mié, 07-07-2010 a las 12:31 -0300, Paola Bruccoleri escribió:<br>> Hola José..<br>> > El "clin" ese creo que te pasa cuando el foco lo tiene un TEdit. No<br>> > hay mucho que puedas hacer ahora mismo ya que el reasignado de teclas<br>> > creo que no funciona en ninguna plataforma, de todos modos puedes<br>> > probar a poner:<br>> ><br>> > procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;<br>> > Shift: TShiftState);<br>> > begin<br>> > if (key = VK_ESCAPE) then begin<br>> > Key := 0;<br>> > close;<br>> > end;<br>> > end;<br>> ><br>> > <br>> si, ese clin lo hace cuando pasás por algunos controles, como los <br>> combos,
rx, etc... otros no.<br>> No me funcionó ese tip que me distes.. lo sigue haciendo igual..<br>> <br>> Así que esto por ej de pasar con enter los controles no funciona en linux?<br>> Es indispensable para sistemas de gestión, donde se factura sin parar!!!<br>> chauuuuuuuuuu<br>> <br>> <br>> <br>> _______________________________________________<br>> Lazarus-es mailing list<br>> <a ymailto="mailto:Lazarus-es@lists.lazarus.freepascal.org" href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>> <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br><br><br><br>________________________________________________________________________<br><br>ARTEX TRADING S.A.<br>José Antonio Cuello Principal<br><br><br><br><br><br><br>------------------------------<br><br>Message:
6<br>Date: Wed, 7 Jul 2010 10:45:56 -0500<br>From: christian Ortiz <<a ymailto="mailto:xortix@gmail.com" href="mailto:xortix@gmail.com">xortix@gmail.com</a>><br>Subject: [Lazarus-es] mac y Tprocess<br>To: Spanish version of Lazarus List<br> <<a ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org" href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>Message-ID:<br> <<a ymailto="mailto:AANLkTimVFSP-pYBYMMVsvWdw76_RGm1aI14WLJcr9K9a@mail.gmail.com" href="mailto:AANLkTimVFSP-pYBYMMVsvWdw76_RGm1aI14WLJcr9K9a@mail.gmail.com">AANLkTimVFSP-pYBYMMVsvWdw76_RGm1aI14WLJcr9K9a@mail.gmail.com</a>><br>Content-Type: text/plain; charset="iso-8859-1"<br><br>Hola a todos,<br><br>alguno de ustedes ha logrado usar Tprocess o TprocessUTF8 en Leopard/<br>SnowLeopard para ejecutar una aplicacion externa? En Windows y Linux me<br>funciona de maravilla pero en mac
:(.<br><br>-- <br>Christian<br>------------ próxima parte ------------<br>Se ha borrado un adjunto en formato HTML...<br>URL: <<a href="http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100707/64f67de8/attachment-0001.html" target="_blank">http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100707/64f67de8/attachment-0001.html</a>><br><br>------------------------------<br><br>Message: 7<br>Date: Wed, 07 Jul 2010 13:00:05 -0300<br>From: Paola Bruccoleri <<a ymailto="mailto:pbruccoleri@adinet.com.uy" href="mailto:pbruccoleri@adinet.com.uy">pbruccoleri@adinet.com.uy</a>><br>Subject: Re: [Lazarus-es] iconos correspondientes a bk*<br>To: Spanish version of Lazarus List<br> <<a ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org" href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>Message-ID: <<a
ymailto="mailto:4C34A485.6050103@adinet.com.uy" href="mailto:4C34A485.6050103@adinet.com.uy">4C34A485.6050103@adinet.com.uy</a>><br>Content-Type: text/plain; charset=ISO-8859-1; format=flowed<br><br>José Mejuto escribió:<br>> Hello Paola,<br>><br>> Wednesday, July 7, 2010, 4:22:52 PM, you wrote:<br>><br>> <br>>>> En todas las compilaciones cambiando el recurso correspondiente de<br>>>> Lazarus, y los tienes en la carpeta Lazarus\Images\buttons<br>>>> <br>> PB> Hola José y Cristian..<br>> PB> gracias por sus sugerencias...<br>> PB> no tengo esa carpeta.. ayer estuve buscando por todo c:\lazarus la<br>> PB> imagencita de cerrar y no la encontré.. :(<br>><br>> Uy perdón era:<br>><br>> Lazarus\lcl\images\buttons :) Perdón.<br>> <br>Hola José...<br>estás perdonado :)!!<br>pero hay algo que no me cierra y no entiendo... ¿de dónde
sale esa cruz <br>negra cuando elijo en el TBitBtn, propiedad kind = bkClose.?<br>Se supone que toma el botón btn_close.png de la carpeta que tu me <br>indicas, que tiene como dibujito con una puertita marrón.<br>Creo recordar que antes, en algún build de lazarus, me aparecía esa <br>puerta, y ahora aparece esa cruz...<br>chauuuuuuuuuuuu<br><br><br><br><br><br><br><br><br>------------------------------<br><br>Message: 8<br>Date: Wed, 7 Jul 2010 18:33:43 +0200<br>From: José Mejuto <<a ymailto="mailto:joshyfun@gmail.com" href="mailto:joshyfun@gmail.com">joshyfun@gmail.com</a>><br>Subject: Re: [Lazarus-es] iconos correspondientes a bk*<br>To: Spanish version of Lazarus List<br> <<a ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org" href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>Message-ID: <<a ymailto="mailto:1149554226.20100707183343@gmail.com"
href="mailto:1149554226.20100707183343@gmail.com">1149554226.20100707183343@gmail.com</a>><br>Content-Type: text/plain; charset=ISO-8859-1<br><br>Hello Paola,<br><br>Wednesday, July 7, 2010, 6:00:05 PM, you wrote:<br><br>PB> estás perdonado :)!!<br>PB> pero hay algo que no me cierra y no entiendo... ¿de dónde sale esa cruz<br>PB> negra cuando elijo en el TBitBtn, propiedad kind = bkClose.?<br>PB> Se supone que toma el botón btn_close.png de la carpeta que tu me <br>PB> indicas, que tiene como dibujito con una puertita marrón.<br>PB> Creo recordar que antes, en algún build de lazarus, me aparecía esa<br>PB> puerta, y ahora aparece esa cruz...<br><br>A mi en bkClose me sale eso, una puerta. Si es una cruz negra es<br>posible que por el motivo que fuera no te compilara una imagen para<br>ese botón, quizá un problema con el SVN, no se. El caso es que a mi me<br>sale la puerta :-? Aunque mi SVN es un poco "viejo" como 2
meses.<br><br>Prueba a recompilar el IDE al completo, usando las opciones de "Clean<br>+ Rebuild".<br><br>-- <br>Best regards,<br> José<br><br><br><br><br>------------------------------<br><br>Message: 9<br>Date: Wed, 7 Jul 2010 13:57:40 -0300<br>From: Maxi <<a ymailto="mailto:maximiliano.duarte@gmail.com" href="mailto:maximiliano.duarte@gmail.com">maximiliano.duarte@gmail.com</a>><br>Subject: Re: [Lazarus-es] ruidito<br>To: Spanish version of Lazarus List<br> <<a ymailto="mailto:lazarus-es@lists.lazarus.freepascal.org" href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</a>><br>Message-ID:<br> <<a ymailto="mailto:AANLkTikDSAaKOkjwXmGHAmCgqkUFoTMjFoe1M7VUNVRi@mail.gmail.com" href="mailto:AANLkTikDSAaKOkjwXmGHAmCgqkUFoTMjFoe1M7VUNVRi@mail.gmail.com">AANLkTikDSAaKOkjwXmGHAmCgqkUFoTMjFoe1M7VUNVRi@mail.gmail.com</a>><br>Content-Type: text/plain;
charset="utf-8"<br><br>El 7 de julio de 2010 12:42, José Antonio Cuello<br><<a ymailto="mailto:josea@artextrading.com" href="mailto:josea@artextrading.com">josea@artextrading.com</a>>escribió:<br><br>> Hola, creo que si lo tratas en el keypress en vez del key down puedes<br>> anular la pulsación con key := #0 ya que en el keydown la tecla ya ha<br>> sido pulsada y se lanzan los eventos de teclado igualmente.<br>><br>> Bueno no se si me he explicado correctamente, pero creo que para que<br>> haya un keydown debe haber keypress pero no al reves.<br>><br>> Yo controlo la pulsación del enter y el escape así y no me da problema.<br>><br>> procedure TBaseForm.FormKeyPress(Sender: TObject; var Key: char);<br>> begin<br>> if assigned( Screen.ActiveControl ) then<br>> begin<br>> if (Key = #13) then<br>> begin<br>> if
Screen.ActiveControl.InheritsFrom(TCustomButton) then Exit;<br>><br>> if Screen.ActiveControl.InheritsFrom(TWinControl) and not<br>> Screen.ActiveControl.InheritsFrom(TCustomMemo) then<br>> begin<br>> Key := #0;<br>> repeat<br>> SelectNext(Screen.ActiveControl, True, True);<br>> until (Screen.ActiveControl = nil) or<br>> (not (Screen.ActiveControl.InheritsFrom(TCustomPage) or<br>> Screen.ActiveControl.InheritsFrom(TCustomNotebook)));<br>> end;<br>> end;<br>> end<br>> else<br>> if (Key = #13) then<br>> begin<br>> Key := #0;<br>> SelectNext(nil, True, True);<br>> end;<br>>
end;<br>><br>> Espero que te sirva<br>><br>> El mié, 07-07-2010 a las 12:31 -0300, Paola Bruccoleri escribió:<br>> > Hola José..<br>> > > El "clin" ese creo que te pasa cuando el foco lo tiene un TEdit. No<br>> > > hay mucho que puedas hacer ahora mismo ya que el reasignado de teclas<br>> > > creo que no funciona en ninguna plataforma, de todos modos puedes<br>> > > probar a poner:<br>> > ><br>> > > procedure TfrmNumeradores.FormKeyUp(Sender: TObject; var Key: Word;<br>> > > Shift: TShiftState);<br>> > > begin<br>> > > if (key = VK_ESCAPE) then begin<br>> > > Key := 0;<br>> > > close;<br>> > > end;<br>> > > end;<br>> > ><br>> > ><br>> > si, ese clin lo hace cuando pasás por algunos controles, como
los<br>> > combos, rx, etc... otros no.<br>> > No me funcionó ese tip que me distes.. lo sigue haciendo igual..<br>> ><br>> > Así que esto por ej de pasar con enter los controles no funciona en<br>> linux?<br>> > Es indispensable para sistemas de gestión, donde se factura sin parar!!!<br>> > chauuuuuuuuuu<br>> ><br>> ><br>> ><br>> > _______________________________________________<br>> > Lazarus-es mailing list<br>> > <a ymailto="mailto:Lazarus-es@lists.lazarus.freepascal.org" href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>> > <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>><br>><br>><br>> ________________________________________________________________________<br>><br>> ARTEX TRADING
S.A.<br>> José Antonio Cuello Principal<br>><br>><br>><br>><br>> _______________________________________________<br>> Lazarus-es mailing list<br>> <a ymailto="mailto:Lazarus-es@lists.lazarus.freepascal.org" href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>> <a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>><br><br><br>Se soluciona asignadno #0 o 0 a la key segun que evento llames, para que el<br>evento heredado no siga su curso.<br><br>-- <br>Twitter: @nenunocomar<br>Maximiliano Duarte<br>Linux User #495070<br>Ubuntu User #28504<br><a href="http://miexperiencialinux.blogspot.com/" target="_blank">http://miexperiencialinux.blogspot.com/</a><br><br>El que pregunta aprende, y el que contesta aprende a responder.<br>------------ próxima parte ------------<br>Se ha
borrado un adjunto en formato HTML...<br>URL: <<a href="http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100707/bf947104/attachment.html" target="_blank">http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20100707/bf947104/attachment.html</a>><br><br>------------------------------<br><br>_______________________________________________<br>Lazarus-es mailing list<br><a ymailto="mailto:Lazarus-es@lists.lazarus.freepascal.org" href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br><a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br><br><br>Fin de Resumen de Lazarus-es, Vol 34, Envío 4<br>*********************************************<br></div></div>
</div><br>
</body></html>