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