Button - Schrift blinken lassen...

[NeoDeluxe]

Moin.
Wie geht das. Ich bei einem Button, dass die Schrift Blink: d.h. Die Fabre des Schriftes soll sich in einem Sekundentakt ändern. Das geht auf jeden Fall mit TTimer, aber wie? :wink:

[Robert]

Button.Font.Color abwechselnd unterschiedlichen Farben zuweisen.

TimerProc:

Delphi-Quellcode:

case Button1.Font.Color of
  clBlack: Button1.Font.Color:=clRed;
  clRed  : Button1.Font.Color:=clBlack;
end;

[City Light]

Kann mir jemand mal verraten warum ich bei mein Button die Fontfarbe nicht änder kann :?: oder ist das bei euch auch so

[Haegar]

hatte es auch schon probiert, ging auch net :shock:

[Haegar]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 label1.Font.Color:=random(2147483647);    //max. positives integer
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 randomize;
end;

nachdem es ja nu imt dem button nicht ging, hier ein beispiel am label
vorher am besten im FormCreate "randomize;".


gruss haegar

[NeoDeluxe]

Schön, dass das alles so bunt ist. Aber ich will nur zwei farben haben.
Nicht tausende oder sonst wie viele! Wie geht das? :wink:

Grüße NeoDeluxe :hi:

[Mirilin]

Delphi-Quellcode:

var
  b : Boolean;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if b then
  begin
    Label1.Font.Color := clblack;
  end
  else
  begin
    Label1.Font.Color := clred;
  end;
  b := not b;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  b := false;
end;

[Mirilin]

und anstelle von TButton könntest Du TBitBtn nehmen, bei dem geht das mit der Schriftfarbe.

[NeoDeluxe]

Danke funktioniert Problemlos! :hello:

Grüße NeoDeluxe :hi: