Geht´s auch blinkend???

[hans-peter]

Liebe Gemeinde!

(Delphi_3) Gibt es die Möglichkeit,
eine Abfrage - am Liebsten ein Label -
blinken zu lassen?
Und dazu noch die Möglichkeit,
während des Blinkens das
Label zwischen den Farben ROT
und z.B. WEISS wechseln zu lassen?

Hätt´ ich gern gewußt.
Wie immer lieben Gruß
Hans-Peter

[flomei]

Zitat:

Zitat von hans-peter2

...Gibt es die Möglichkeit,
eine Abfrage - am Liebsten ein Label -
blinken zu lassen?
Und dazu noch die Möglichkeit,
während des Blinkens das
Label zwischen den Farben ROT
und z.B. WEISS wechseln zu lassen?...

Nur blinken oder die Farben wechseln oder blinken und dabei die Farbe wechseln???

MfG Florian :hi:

[flomei]

Eine TTimer Komponente wird benötigt!

Blinken

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if
Label1.Visible= true
then
Label1.Visible:= false
else
Label1.Visible:= true;
end;

Farbe wechseln

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if
Label1.Font.Color= CLred
then
Label1.Font.Color:= CLwhite
else
Label1.Font.Color:= CLred
end;

MfG Florian :hi:

[Luckie]

Timer und TLabel kennt die Eigenschaft Color.

[flomei]

Zitat:

Zitat von Luckie

Timer und TLabel kennt die Eigenschaft Color.

Meintest du mich?

MfG Florian :hi:

[oki]

Kein Thema!

Nehm eine Kompo TTimer aus der Lasche System. Stelle bei interval Deine Blinkzeit ein.

In der OnTimer-Ereignisbehandlungsroutine fügst du folgenden Code ein:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  MyLabel.Visible := not MyLable.Visible;
end;

Willst du die Farbe ändern und nicht unsichtbar machen, dann mach folgendes:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  case MyLable.Tag of
    0: begin
      MyLable.Tag := 1;
      MyLable.Color := clread;
    end;
    1: begin
      MyLable.Tag := 0;
      MyLable.Color := clgreen;
    end;
  end;
end;

Eventuelle Kombinationen aus beidem, Blinken an/aus, Blikzeit usw. bleibt dir überlassen.

Gruß oki

( Ups, wir haben wohl alle gleichzeitig gepostet [oki])

[Luckie]

@flomei: Nein, den Fragesteller. Wir haben wohl gleichzeitig gepostet.

[flomei]

Zitat:

Zitat von Luckie

Nein, den Fragesteller. Wir haben wohl gleichzeitig gepostet.

Ach so. Kein Problem :hello:

MfG Florian :hi:

[hans-peter]

Danke für die vielen Antworten. Hab jetzt ´ne Menge zu lernen und auszuprobieren.

Super Forum!
Super Leute!

Danke
Hans-Peter