Hi Leute!
Woran kann es liegen, dass sich mein Programm weigert, die Schriftfarbe eines Labels zu ändern?
Delphi-Quellcode:
procedure TForm1.PanHalle01MouseDown(Sender: TObject; Button: TMouseButton;//Panel 1
Shift: TShiftState; X, Y: Integer);
begin
if button = mbleft then {ändert Farbe wenn Halle sich füllt}
if Form1.PanHalle01.Color <> $0000FF then{Kontrolle ob Farbe <> Rot}
PanLab1T.Caption := Zeitangabe;
if button = mbright then {ändert Farbe wenn Halle sich leert}
if Form1.PanHalle01.Color <> $FFFFFF then{Kontrolle ob Farbe <> Weiß}
PanLab1T.Caption := Zeitangabe;
Farbewechseln (Sender as TPanel, Button);
if PanHalle01.color = clgreen or clmaroon
then Panlab1T.font.color := clwhite {Änderung erfolgt nicht}
else Panlab1T.font.color := clblack; {Änderung erfolgt nicht}
end;