[Achtung Anfänger ^^] Färben von Panels mit gedrückter Maus

[Darkdavos]

Erstmal hallo Forum =)

Ich bin erst neu hier und arbeite mich erst in die Marterie von Delphi ein und versteh sie noch nicht ganz. Ich mach gerade ein Praktikum von der Schule aus wo ich einen Kalender in Delphi erstellen soll. Mein Chef wünscht sich von mir ein Kalender mit einigen Funktionen drin, die ich eigentlich noch alle gut hinbekommen habe, bis auf eine.

Ich soll (ich denke mal es ist eine) eine Draging Funktion bauen mit der ich Panels markieren kann. Ab diesem Panel soll man anfangen können zu ziehen und über die nächsten drüber...
Diese sollen dann einfach die Farbe wechseln....
Das Problem an der Sache ist das mein Chef auch nicht genau weiß wie es in Delphi funktionieren soll, ich soll es jetzt mal selbst schauen ob ich dazu was hinbekomme

Ich hab das jetzt schon per Mousemove probiert und eine Variable mit Mousedown immer je nach maus 0 und 1 wechseln lassen...
Per Mousemove lässt sich aber nur in einem Feld drinen mit gedrückter Maustaste die Farbe wechseln, funktioniert aber nicht für die nebenstehenden Panels beim darüber fahren...

Die Frage ist jetzt, ist Drag and DragOver das richtige dafür? Und wie funktioniert es?

Ich besitze verschiedene Panels die z. B. J2P1 heißen und J+1 ... also J2P1 J3P1 J4P1 ... so weiter

Ein Code wie ich es Versucht habe:

Delphi-Quellcode:

procedure TFormJanuar.J2P1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
    if Button=mbLeft then
    J2P1.BeginDrag(true);
end;

procedure TFormJanuar.J2P1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
    J2P1.color:=clred;
end;

procedure TFormJanuar.J2P1DragOver(Sender: TObject; Source: TDragDockObject; X,
      Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept:= true;
  J2P1.color:=clred;
  J2P1.DragCursor:=CrDrag;
end;

procedure TFormJanuar.J3P1DragOver(Sender: TObject; Source: TDragDockObject; X,
      Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept:= true;
  J2P1.color:=clred;
  J2P1.DragCursor:=CrDrag;
end;
.
.
.
.

Ich bin nicht wirklich gut in Delphi, deswegen entschuldige ich mich dafür, dass ich so etwas "Lowes" hier frag ... aber ich hab echt kein Peil...

Ich sitz schon seit Montag über 3 verschieden Delphibüchern und such auch in verschiedenen Foren nach Antworten, finde aber nur Codeschnipsel die ich nicht verstehe. ='(
(Die Suchfunktion hat einige Ergebnisse zu Drag and Drop bei euch herausgebracht, die ich brav durchgelesen habe, aber ich schaff nicht sie selbst zu verwenden und werde auch nicht wirklich schlau aus ihnen. Die Themen sind meist schon so hoch gestellt das ich nicht nachkomme...)

Für Antworten würde ich euch sehr danken
Greet David