FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
repeticion de código pulsando un TButton.
Hola me estoy volviendo loco, porque no se como ejecutar un código repetidas veces, hasta que suelte el boton izquierdo del ratón.
he probado con otras clases de botones pero nada... ¿Hay alguien que se apiade de mi? Gracias |
#2
|
|||
|
|||
¿Qué quieres que mientras mantengas el botón presionado se ejecute un código? Se me ocurre que coloques un Timer y que evalue cada cierto tiempo si el botón está presionado, si esto ocurre que haga lo que deseas.
Saludos |
#3
|
||||
|
||||
Si el problema es repetir còdigo, q tiene q ver el botòn?
Ademàs del consejo de nemesio...si lo q qieres es durante el movimiento entonces puedes usar el event OnMOuseMOve del control y verificas el paràmetro TShifState...ahí veràs si el mouse se está movimiendo con un botón hundido
__________________
Los Estados Unidos parecen destinados por la Providencia para plagar la América de miserias a nombre de la libertad." Simón Bolívar (Carta al Coronel Inglés Patricio Cambell 05/08/1829). |
#4
|
|||
|
|||
Cita:
Lo que hace el programa es dibujar ciertos elementos y con botones ("Flechas") voy desplazando esos objetos por la imágen. pero tengo que pulsar repetidas veces para que se vaya desplazando. Me gustaría que mientras tengo pulsado el botón se vaya ejecutando constantemente. Gracias |
#5
|
||||
|
||||
Hola,
Bueno. Que yo sepa no existe el evento "OnBetwenUserDontUpKey"... sin embargo, digo que yo que todo puede hacerse... ¿no? Lo que no sé es si quedaría algo elegante, curioso, limpio, usable y efectivo al mismo tiempo. Quiero decir, que, a bote pronto, se me ocurre algo como esto...
Última edición por dec fecha: 22-08-2006 a las 17:12:26. |
#6
|
|||
|
|||
Muchas gracias
|
#7
|
|||
|
|||
Lo he probado en Builder y funciona, aunque solo he utilizado:
Código:
bool apretado; void __fastcall TForm1::Button2MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { apretado=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { apretado =!apretado; // Mientras el botón esté "pulsado"... while (apretado) { Memo1->Lines->Add("a"); Application->ProcessMessages(); } } Muchas Gracias otra vez |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
buscar dentro de una cadena con repetición | jzginez | Varios | 4 | 12-05-2006 21:40:18 |
Repetición en Rave Reports 6.0 | paufra | Impresión | 0 | 03-06-2005 10:54:19 |
TButton | Humberto Pertuz | API de Windows | 3 | 17-12-2003 19:04:13 |
insertar pulsando + | maruenda | Varios | 1 | 08-12-2003 19:24:42 |
Report master/detall falla hay repeticion. | kia | Impresión | 2 | 19-10-2003 21:24:43 |
|