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;