TTrayIcon: OnClick e OnDblClick

[bonmario]

Ciao a tutti,
ho un programma, che gira solo su Windows, in cui, quando clicco sulla sua TrayIcom, se il form è visualizzato, viene nascosto, se è nascosto viene visualizzato.
Fino a qui, tutto ok.
Mi hanno chiesto di fare in modo che quando si fa "doppio click" sulla sua icona, parta un comando.
Io l'ho fatto, ma la maggior parte delle volte, quando si fa "doppio click", è come se lui vedesse 2 "click semplici", quindi è come se cliccassi una volta, e poi ancora un'altra volta.
Anche mettendo in debug un blocco nella "OnDblClick", la maggior parte delle volte di lì non ci passa proprio.
Che voi sappiate, la OnClick e la OnDblClick sono incompatibili tra di loro, oppure c'è un bug?

Grazie, Mario

[DragoRosso]

Quello del double click è sempre stato un argomento un pò ostico da gestire.
In effetti se c'è l'evento OnClick definito, quello OnDoubleCLick è molto più difficile da ottenere.

"Click" e "Double click" sono differenziate solo dalle differenti tempistiche sui tempi di pressione / rilascio del tasto. E in generale, il OnClick viene sempre e comunque lanciato.

Nel pannello di controllo (nelle varie impostazioni del mouse) c'è un settaggio dedicato a Windows proprio per discriminare queste tempistiche.
Però, detto spassionatamente, io non uso il "Double Click" nelle mie applicazioni e sconsiglio di usarlo a maggior ragione se viene usato lo "OnClick".

Se devi per forza gestirlo, ti consiglio di inserire un timer e scatenare da programma l'azione legata al "Click" o al "Double Click" in base al fatto che il timer abbia esaurito il suo tempo senza che il doppio click sia avvenuto.

Questo provoca una latenza apparente sull'azione a seconda del tempo che inserisci: se per esempio tu attendi il doppio tocco entro 0,5 secondi dal primo ciò cignificherà che anche il click normale sarà ritardato di 0,5 secondi (cioè l'azione che viene eseguita abbinata al Click semplice è ritardata come quella abbinata al doppio click).

Esempio (editato)
se si vuole distinguere anche il controllo su cui è avvenuto si può aggiungere una variabile globale in cui si inserisce il controllo su cui si stà "agendo"

Codice: [Seleziona]

var
  VariePressioni: integer = 0;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  inc(VariePressioni);
  Timer1.Enabled := true;  //<---- timer settato a 200 millisecondi
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  case VariePressioni of
     1: begin
          //Un click
        end;
     2: begin
          //Due click
        end;
     3: begin
          //Tre click
        end;
  end;
  VariePressioni := 0;
end;

[bonmario]

Grazie, interessante la tua soluzione !

Nel frattempo, ho proposto a chi mi ha chiesto il "doppio click", di fare "tasto destro", e da lì scegliere la voce desiderata che, al momento sarebbe anche l'unica ! Anche perché da quello che mi diceva stamattina, ho idea che prossimamente ne vorrebbe altre e, con un menù dedicato, la cosa sarebbe più elegante.
Se non gli andasse bene la mia soluzione, implementerò la tua

Grazie !!!