[DELPHI] Far lampeggiare un controllo TLabel

[cla80]

Vorrei far lampeggiare una label per visualizzare meglio nello schermo il messaggio all'interno della Label.

Come fare?

[AlbertoPicca]

Puoi usare il componente TTimer, che si trova nella scheda System della Component Palette .

La classe TTimer permette richiamare una procedura ogni n-secondi.
Il tempo viene definito dalla proprietà Interval e il valore da inserire si intende in millisecondi.

Ad esempio, puoi gestire l'evento del timer:

procedure TForm1.Timer1Timer(Sender: TObject);
  if ( div(cnt) = 2 )then
    Label1.Color := clRed
  else
    Label1.Color := clGreen
  inc(cnt);
end;

La variabile cnt sarà una variabile globale della classe TForm1 e dovrà essere inizializzata a 0.
Prima di impostare la proprietà Enabled del Timer occorre
porre

Cnt := 0;

[alka]

Tutto ok, anche se è possibile fare a meno della variabile contatore:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Label1.Color = clGreen then
    Label1.Color := clRed
  else
    Label1.Color := clGreen;
end;

[AlbertoPicca]

In effetti !

[camaleonteplus]

In che modo è possibile avviare questo codice da
procedure TForm1.Button1Click(Sender: TObject);?

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Label1.Color = clGreen then
    Label1.Color := clRed
  else
    Label1.Color := clGreen;
end;

[alka]

Originariamente inviato da camaleonteplus
In che modo è possibile avviare questo codice da
procedure TForm1.Button1Click(Sender: TObject);?

Questa discussione è del 2004!

Apri una discussione separata per il tuo problema, spiegandolo accuratamente.