Delphi - Label Lampeggiante Colorato

Forum - Delphi - Label Lampeggiante Colorato

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 22:13
Mercoledì, 30/09/2009

In che modo è possibile creare un Controllo Label Lampeggiante facendolo avviare da procedure TForm1.Button1Click(Sender: TObject);? Questo è il codice che vorrei modificare.

Codice sorgente - presumibilmente Delphi

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

Anonymous (Member)
Guru

Messaggi: 1059
Iscritto: 30/07/2006

Postato alle 22:34
Mercoledì, 30/09/2009

strano... in teoria dovrebbe funzionare...

cmq prima di tutto imposta a false la proprietà enabled del timer, poi dentro al pulsante scrivi:

Codice sorgente - presumibilmente Plain Text

timer1.enabled:=true;

Ultima modifica effettuata da Anonymous il 02/10/2009 alle 19:01

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 15:32
Giovedì, 01/10/2009

Ho fatto cosi ma non va:
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Color:=clGreen;
timer1.enabled:=true;
end;

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

Anonymous (Member)
Guru

Messaggi: 1059
Iscritto: 30/07/2006

Postato alle 17:24
Giovedì, 01/10/2009

Testo quotato

Postato originariamente da camaleonteplus:

Ho fatto cosi ma non va:
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Color:=clGreen;
timer1.enabled:=true;
end;

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

den tro al pulsante devi scrivere cosi, se imposti in quel modo il timer

Codice sorgente - presumibilmente Plain Text

label1.Color:=clred;
timer1.enabled:=true;

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 17:45
Giovedì, 01/10/2009

l'ho fatto ma non succede niente per me è la mia versione di delphi che ha qualcosa che non va.

Anonymous (Member)
Guru

Messaggi: 1059
Iscritto: 30/07/2006

Postato alle 19:26
Giovedì, 01/10/2009

ma non va in che senso???

cmq guarda il sorgente che it ho allegato

Anonymous ha allegato un file: color.zip (3255 bytes)
Clicca qui per scaricare il file

camaleonteplus (Normal User)
Pro

Messaggi: 95
Iscritto: 05/03/2009

Postato alle 22:07
Giovedì, 01/10/2009

Problema risolto ho aggiornato delphi adesso funziona il codice.