[DELPHI] Cambiare cursore mouse in connessione TCP

[colde]

Ciao a tutti,
ho un programmino che effettua la connessione ad un dispositivo tramite TCP e per attivare la connessione utilizzo l'evento OnClick di un'immagine. Dato che a volte il processo di connessione richiede anche due secondi, vorrei far cambiare il cursore del mouse alla pressione del tasto. Il codice, all'interno dell'evento OnClick, a grandi linee è così:

Application.ProcessMessages;
Image.Cursor := crHourGlass;
TCPClient.Connect;
Application.ProcessMessages;
Image.Cursor := crDefault;

Il problema è che nonostante siano inseriti i cambi di cursore e gli Application.ProcessMessages, non vengono visualizzati ed è come se non ci fossero; eppure durante la connessione capita che rimanga appeso per qualche secondo in attesa di connettersi. Come posso risolvere?

Grazie

[colde]

Come non detto. Ho risolto inserendo il cambio del cursore all'interno dell'evento OnMouseDown del bottone (image).

[alka]

Se non ricordo male, i componenti Indy dispongono di eventi che vengono generati quando avvengono le connessioni e le disconnessioni.

Eviterei sempre l'uso di Application.ProcessMessages per evitare effetti collaterali: meglio sfruttare un oggetto TThread.

Ciao!