Problemas al distinguir Click de DobleClick

[[escafandra]]

El problema está en que creas un formulario modal, lo muestras y no lo destruyes.
Luego en el evento no debes llamar a Application->ProcessMessages() elinmina esa línea:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TTexClick *TextClick;

  TextClick = new TTexClick(this);

  //Mostramos el Formulario como modal
  switch (TextClick->ShowModal())
        {
          //Si ha Guardado la Jornada
           case mrOk:
                break;

           //Si ha salido sin Guardar
           case mrCancel:
                break;
         }
  //////////////////////////////////////// 
  delete TextClick;  // añade esta línea
  ///////////////////////////////////////////

}

void __fastcall TTexClick::Label1Click(TObject *Sender)
{



  //Diferenciamos un click de un doble click incluyendo el archivo de cabecera "DblClKrearQ.h"
  BEGIN_DBLCLICK_DETECT(TLabel, Label1)


     Label2->Caption = " ";
/////////////////////////////////////////////
//     Application->ProcessMessages();
///////////////////////////////////////////////
    for(int a=1;a<10000000;a++){}

     Label2->Caption = "UN SOLO CLICK";

  END_DBLCLICK_DETECT;
}


void __fastcall TTexClick::Label1DblClick(TObject *Sender)
{
     Label2->Caption = " ";
////////////////////////////////////////
//     Application->ProcessMessages();
/////////////////////////////////////////

     for(int a=1;a<10000000;a++){}

     Label2->Caption = "DOBLE CLICK";
}

Saludos.

[NEG1414]

Gracias por contestar...

He puesto la linea con la que donde destruyo el formulario Hijo ...... pero me al volver al formulario Hijo me hace lo siguinete.....

a) Si hago un click : Me realiza la operacion de DobleClick

b) si vuelvo a Hacer Click.... error "Not enough timers available"

¿Os Hace lo mismo?

Gracias

[[escafandra]]

No, no me hace lo mismo.

Creo que lo mas sencillo es replantear todo el sistema de diferenciación entre click y dobleclick.

Siguiendo la filosofía de la macro, cambia el archivo DblClK.h por este:

//----------------------------------------------------------------
#ifndef DblclkH
#define DblclkH
#include "time.h"
//----------------------------------------------------------------
#define DBLCLICK_DETECT()                        \
   static clock_t start = clock();               \
   clock_t  dif = clock()-start;                 \
   if(dif < GetDoubleClickTime() && dif > 1){    \
      start = clock();                           \
      return;                                    \
   }                                             \

//----------------------------------------------------------------
#endif
//----------------------------------------------------------------

Ahora el código del evento OnClick será:

void __fastcall TTexClick::Label1Click(TObject *Sender)
{
    //Diferenciamos un click de un doble click incluyendo el archivo de cabecera "DblClK.h"
    DBLCLICK_DETECT();
    
    // Ahora el código del evento, siempre detrás...
    Label2->Caption = "UN SOLO CLICK";
}

Y en OnDblClick:

void __fastcall TTexClick::Label1DblClick(TObject *Sender)
{
     Label2->Caption = "DOBLE CLICK";
}

Lo que hace es contabilizar el tiempo que pasa entre dos clicks, si es menor que el del dobleclick del sistema lo considera doble click y abandona el evento OnClick.

Saudos

[NEG1414]

Perfecto....

Muchisimas gracias scafranda, funciona ....Ademas, haciendolo como tu lo planteas, te ahorras tener que declarar una macro para cada formulario de la aplicacion que necesite distinguir Click de dobleClick

Gracias Otra vez

[roman]

¡Qué cosa más rara! ¿Para qué quieren reinventar la rueda? El sistema operativo ya maneja un timer para lanzar o no el doble click. ¿Por qué implementalo uno mismo?

// Saludos

[[escafandra]]

Empezado por roman

¡Qué cosa más rara! ¿Para qué quieren reinventar la rueda? El sistema operativo ya maneja un timer para lanzar o no el doble click. ¿Por qué implementalo uno mismo?

Bueno, el tema es que NEG1414 necesitaba lanzar el click o el doble click, pero no los dos. Cuando Builder o delphi lanzan un OnDblClick, previamente lanzan un OnClick y eso era lo que se pretendía evitar...

No se si tu conoces una forma mas simple de conseguirlo.

Saludos.

[roman]

Sí, ya veo. Tienes razón

// Saludos