Pulsante DateEdit

[crx]

Salve a tutti.
Ho sempre avuto un problema con i controlli dateEdit e simili: come si 'comanda' il pulsante del controllo? Tipo controllare l'evento onclick del pulsante. Se utilizzo, ad esempio

Codice: [Seleziona]

deDateEdit.Button.OnClick := @Procedura

entra in Procedura, la esegue, ma poi in pratica non fa quello che deve fare: aprire il calendario!
C'è il trucco?

[nomorelogic]

OnClick è infatti l'evento che viene sollevato in risposta ad un click eseguito dall'utente, è normale che il calendario non si apra.
Come dire che il click è l'azione e l'OnCLick la reazione.

Prova con:

Codice: [Seleziona]

deDateEdit.Button.Click

[crx]

Intanto grazie per la risposta ma mi sa che mi sono spiegato male. Io vorrei 'modificare' l'evento onClick in questo modo: prima che si apra il calendario, ho bisogno di impostare una variabile. L'evento onClick del controllo dateEdit viene attivato solo se si fa click all'interno della editBox, quindi ho bisogno di modificare anche l'evento relativo al pulsante, ma non riesco a capire come...

Forse sarà bene essere un po' più chiari su quello che voglio fare, magari sto sbagliando metodo.
Per allenamento, ho fatto una applicazione che converte una data 'gregoriana' in una data secondo il calendario maya, formata da una serie di 5 cifre. Per le cifre uso 5 spinEdit, per la data 'nostrana' una dateEdit. Siccome vorrei che, cambiando le spinEdit, venga di conseguenza modificata la dateEdit e viceversa, ho aggiunto il codice di conversione all'evento onChange dei controlli.
Ovviamente, però, così si innesca un ciclo infinito: al cambiamento della data segue un cambiamento delle spinEdit cui segue un cambiamento della data ecc.
Ho pensato allora di risolvere il problema con una variabile globale: al click sulle spinEdit la imposto a 1 (ad esempio), mentre al click sulla dateEdit la imposto a 2, e prima di eseguire la conversione controllo qual'è il controllo 'chiamante'. Per questo mi serve di modificare l'evento onClick del pulsante della dateEdit.
Ho pensato a qualche altro modo di risolvere questo problema, ma mi sembra più complicato e in ogni caso mi piacerebbe sapere come poter controllare il comportamento dei pulsanti dei controlli 'composti'...

[nomorelogic]

L'idea del semaforo è buona ma non credo che una variabile globale sia la strada giusta: ogni controllo ha una sua proprietà 'Tag', piuttosto che una variabile globale puoi usare questa proprietà.

Nel tuo caso potresti anche andare a vedere come sfruttare il fatto che quando l'utente modifica un controllo, quel controllo ha il focus.
Nel codice di OnClick quindi potresti condizionare il ricalcolo a cascata solo se il controllo corrente ha il focus.

Se vuoi usare la proprietà Tag, sfruttala insieme agli eventi OnEnter (imposti Tag=1) ed OnExit (imposti Tag=0). Nell'OnClick il calcolo in cascata viene scatenato solo se Tag=1.

Se per "controllare il comportamete dei pulsanti dei controlli'composti'" intendi modificare i sorgenti dei controlli, il modo migliore (e meno autolesionistico) è quello di creare un nuovo componente

[crx]

Uhm, so che le variabili globali non sono una buona idea, ma effettivamente non avevo pensato ad utilizzare il tag (avevo provato a cambiare il codice facendogli fare un controllo tipo: se la data della dateEdit è uguale a quella che vorrei impostare, allora non fare nulla).
Il problema però è spostato ma non risolto: onEnter e onExit si attivano solo all'ingresso e all'uscita della casella di testo, e non quando si preme il pulsante che apre il calendario.
Forse dovrò studiarmi meglio come creare un nuovo componente per fargli fare quello che dico io... 

[nomorelogic]

che non prendesse il focus sul click non me lo aspettavo 

dai anche un'occhiata a OnAcceptDate, forse ti risolve