Panel color ändern beim Verlassen vom Panel

[GimbaR]

Wenn ich das jetzt richtig verstanden habe, gibts für mich da zwei lösungen:
1.) du setzt die anderen bei der Mausbewegung alle Panel.Color auf btnFace und änderst dann die Frabe

oder

2.) du nimmst die Brechstange und guckst alle 1000 msecs wo sich der mauszeiger befindet und änderst dem entsprechend die farbe...

der quelltext für variante 1.) würde imho ungefähr so aussehen:

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  i: Integer;
begin
  //--->Einafch bei allen Panels Color auf BtnFace setzten
  for i:= 0 to 3 do //können auch mehrere sein ;)
    (Form1.FindComponent('Panel' + IntToStr(i)) as TPanel).Color:= BtnFace;
  //--->/Fertisch^^
  case TComponent(Sender).Tag of
    10: begin
          Panel1.Color := clAqua;
        end;
    20: begin
          Panel2.Color := clAqua;
        end;
    30: begin
          Panel3.Color := clAqua;
        end;
    end;
end;