Ver Mensaje Individual
  #7  
Antiguo 22-08-2006
elcaracas elcaracas is offline
Miembro
 
Registrado: ene 2005
Posts: 26
Reputación: 0
elcaracas Va por buen camino
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
Responder Con Cita