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?

Button.Font.Color abwechselnd unterschiedlichen Farben zuweisen.

TimerProc:

markieren

Delphi-Quellcode:

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

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

hatte es auch schon probiert, ging auch net

markieren

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

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

Grüße NeoDeluxe

zusammenfalten · markieren

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;

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

Danke funktioniert Problemlos!

Grüße NeoDeluxe