Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
19. Mär 2003
Danke, ich hab's jetzt über einen Case...of gelöst...
Auf deine Variante bin ich nicht gekommen...dabei wäre es das einfachste gewesen... :roll:
Forum: Object-Pascal / Delphi-Language
Delphi
by Hellcat,
19. Mär 2003
Hi Leute!
Woran kann es liegen, dass sich mein Programm weigert, die Schriftfarbe eines Labels zu ändern?
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}...