DoppioClick e No Click

[mimmolazzaro]

Buongiorno a tuti.
Titolo criptico ma la spiegazione è semplice: ammettiamo di usare sia un gestore OnClick, sia un gestore OnDblClick. Come si può fare per evitare che facendo un DblClick venga eseguito anche il gestore dell'OnClick?

Per i più curiosi, la situazione è la seguente. In una DBGrid, facendo clic sulla barra del titolo viene eseguito un sorting, facendo doppio clic su una linea della grid viene eseguita una certa operazione sul record corrispondente. Sono riuscito ad evitare che il doppio clic sul titolo faccia partire quella certa operazione sul record selezionato, ma non riesco ad evitare che venga effettuato il sorting, perchè il doppio clic sulla barra del titolo viene interprepato anche come un clic (in effetti, doppio clic = clic + clic  ).

Ciao!

[bonmario]

La butto lì, poi magari arriveranno proposte migliori ...
Io farei così:
- creo una variabile globale booleana "VFDoppioClick" e la inizializzo a false alla creazione del progetto
- nella OnDblClick imposto VFDoppioClick a True
- nella OnClick, aspetto 100 millisecondi (il che da' il tempo all'utente di fare eventualmente il secondo click). Poi, se VFDoppioClick=true non faccio niente, se è False, allora significa che l'utente ha fatto un solo click, quindi faccio quello che deve fare l'OnClick
- alla fine di OnClick, rimetto VFDoppioClick=false in modo che sia pronta per la volta successiva


Ciao, Mario

[Stilgar]

1)dovresti metterti a più basso livello ... ma a istinto dovresti riscriverti il componente ... gestire la coda e intercettare i messaggi per non passarli ai gestori "evoluti".
Il doppio click è interpretato come un Click+"Multiplo" (in lazarus è definito anche quello quadruplo ...).
In talternativa puoi intercettare i messaggi con gli hook di windows ... (la tecnica è quella).
TWinControl.DefWndProc
(http://lazarus-ccr.sourceforge.net/docs/lcl/controls/twincontrol.defwndproc.html).
In pratica install un altro gestore di messaggi al componente.
Meccanismo molto potente, ma molto delicato. La tecnica prevede che tu prenda in esame i messaggi destinati ad un componente e faccia qualche cosa. Per avere tutte le "vecchie" funzionalità ti consiglio di prendere il "vecchio" gestore dei messaggi e salvartelo (come prevede la tecnica classica degli hook).
Fai quello che devi (filtro dei click) e ripassi la palla al vecchio gestore.
Nel tuo caso se i click sono dentro un determinato rettangolo (titoli) non fai scattare il vecchio gestore. Altrimenti sei trasparente con il filtro.

Occhio a come manipoli i messaggi.
2) Controlli cosa scatta prima ... double e single click.
Se il double scatta prima, togli il gestore del click e lo riabiliti solo dopo aver terminato con il doppio. (Ho qualche dubbio che possa funzionare sempre ... troppo legato ai tempi di esecuzione).
 
Stilgar
PS: Con Delphi e Windows la tecnica degli hook funzionava parecchio bene, non so con lazarus o con altre piattaforme.

[mimmolazzaro]

La butto lì, poi magari arriveranno proposte migliori ...
Io farei così:
- creo una variabile globale booleana "VFDoppioClick" e la inizializzo a false alla creazione del progetto
- nella OnDblClick imposto VFDoppioClick a True
- nella OnClick, aspetto 100 millisecondi (il che da' il tempo all'utente di fare eventualmente il secondo click). Poi, se VFDoppioClick=true non faccio niente, se è False, allora significa che l'utente ha fatto un solo click, quindi faccio quello che deve fare l'OnClick
- alla fine di OnClick, rimetto VFDoppioClick=false in modo che sia pronta per la volta successiva

Il problema è che scatta prima l'OnClick.
Nel pomeriggio mi studio la risposta di Stielgar... ora devo chiudere.

[bonmario]

Il problema è che scatta prima l'OnClick.

Appunto ... nell'OnClick, aspetti per una fazione di secondo prima di fare tutto il resto. Se durante questa frazione di secondo l'utente clicca ancora, scatta l'OnDblClick, che imposta la booleana VFDoppioClick a true.
L'OnClick finisce di aspettare, testa VFDoppioClick, vede che è a True, quindi non fa niente.
Se invece durante questa frazione di secondo non c'è il secondo click, VFDoppioClick rimane a false e quindi l'OnClick può fare quello che deve fare.

Ciao, Mario

[mimmolazzaro]

Appunto ...

Scusa Mario, ma la fretta gioca brutti scherzi.
Sì, dovrebbe funzionare, anche se mi scoccia scomodare un Timer per una cosa del genere. Ma... a uerr e' uerr... ;-)

Grazie,
farò sapere.
Mimmo

[mimmolazzaro]

1)dovresti metterti a più basso livello ...

2) Controlli cosa scatta prima ... double e single click.

Grazie Stielgar,

1) la tua versione sembra essere la più pulita ma non ho molta voglia di andare così nel... profondo.
Anche perché, gira e rigira, il meccanismo che dovrei implementare dovrebbe essere comunque molto simile a quello proposto da Mario. Anche a basso livello, infatti, penso che bisognerà comunque istituire un timer_sentinella, prima di attivare il metodo giusto e, a questo punto, preferisco rimanere sui livelli alti, dove mi muovo più agevolmente.

2) come si è detto altrove, purtroppo scatta prima il click singolo... e, a pensarci bene, non poteva essere altrimenti.

Ciao
Mimmo

[bonmario]

Sì, dovrebbe funzionare, anche se mi scoccia scomodare un Timer per una cosa del genere.

A dire la verità, io avevo pensato ad un semplicissimo "Sleep(100);"

Ciao, Mario

[mimmolazzaro]

A dire la verità, io avevo pensato ad un semplicissimo "Sleep(100);"

E avevi pensato bene. 
Ecco qui la soluzione, perfettamente funzionante:

Codice: [Seleziona]

var DoppioClick: Boolean;
procedure TMain.SortColumn(i: Integer);
begin
  [...]
end;

procedure TMain.DBGrid1TitleClick(Column: TColumn);
begin
  DoppioClick := False;
  Sleep(150);
  Application.ProcessMessages;
  if not DoppioClick then SortColumn(Column.Index)
end;

procedure TMain.DBGrid1DblClick(Sender: TObject);
begin
  DoppioClick := True;
  if DBGrid1.ScreenToClient(Mouse.CursorPos).Y < 18 then Exit;
  [... Esegui il Doppio Click ... ]
end;

Ciao e grazie a tutti
Mimmo