Zelticher Farbenwechsel auf Panel

[Eppos]

Hallo,

ich bin relativ neu auf dem Gebiet! Ich wollte einen zeitlichen Farbenwechsel auf einem Panel Programmieren. Aber irgendwie funzt das nicht so wie ich mir das vorstelle.

Danke für jegliche Hilfe und Ideen

Eppos

Delphi-Quellcode:

procedure TForm1.BuStartClick(Sender: TObject);
var a,b,c,d,e,f,i : integer;
begin
 a := 1;
 b := 2;
 c := 3;
 d := 4;
 e := 5;
 f := 6;
 i := 1;
 
  If i = 1 then begin
    BuStart.Visible:= False;
    sleep(500);
    // clRed
    If a = 1 then begin
        PaColor.Color := clRed;
        PaColor.Free;
        sleep(500);
    end;
    // clLime
    If b = 2 then begin
        PaColor.Color := clLime;
        sleep(500);

    // clYellow
    If c = 3 then begin
        PaColor.Color := clYellow;
        sleep(500);

    // clBlue
    If d = 4 then begin
        PaColor.Color := clBlue;
        sleep(50);

    // clFluchsia
    If e = 5 then begin
        PaColor.Color := clFuchsia;
        sleep(50);

    // clAqua
    If f = 6 then begin
        PaColor.Color := clAqua;
        sleep(50);


    end;
    end;
    end;
    end;
    end;
    end;
end;

end.

[mkinzler]

Schon mal mit Form.Update versucht? Statt sleep wäre ein Timer auch besser.

[Eppos]

Wahnsinn! Danke! Ich mache jetzt nun ein Update nach jedem Panel!

Danke

Eppos