Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Nicola - Gennaio 08, 2015, 02:41:19 pm

Titolo: Oggetto Label
Inserito da: Nicola - Gennaio 08, 2015, 02:41:19 pm

Premesso che la condizione si avvera, non capisco perchè se inserisco il ritardo (Sleep), la label (LbErr) non si visualizza, se tolgo lo Sleep (e la riga successiva) mi viene visualizzata regolarmente.

Codice: [Seleziona]

if (confronta > 0.001) or (confronta <-0.001)
                                        then begin
                                             LbErr.Visible:=true;
                                             LbErr.Caption:='Errore Costo - Fondo - Residuo';
                                             LbErr.Autosize:=True;
                                             Sleep (2000);
                                             LbErr.Visible:=false;
                                             end; 

Titolo: Re:Oggetto Label
Inserito da: nomorelogic - Gennaio 08, 2015, 02:48:52 pm

è un problema di refresh
prima dello sleep, metti:

Codice: [Seleziona]

Application.ProcessMessages;

Titolo: Re:Oggetto Label
Inserito da: Nicola - Gennaio 08, 2015, 02:53:24 pm

Perfetto, Grazie  ;D