Wenn jeder Parklplatz eine eindeutige ID hat und die in der Eigenschaft TAG des Panels speicherst könnte man die folgenden Prozeduren (angelegt an rapantes Vorschlag) jedem Panel zuweisen.
Die könnte man im OnCreate des Formulars ggf. auch dynamisch machen, wenn du zu faul bist (ich wär's) das bei jedem Panel manuell einzustellen. Man müsste dann natürlich die Parkplatz-Panel von ggf. anderen Panels auf deinem Form unterscheiden (z.B. könnten alle anderen Panel Tag=0 haben).
Delphi-Quellcode:
procedure TfmHVMainForm.PanelMouseEnter(Sender: TObject);
begin
TPanel(Sender).Color := clyellow;
TPanel(Sender).Font.Color := clWindowText;
end;
procedure TfmHVMainForm.PanelMouseLeave(Sender: TObject);
var parkplatzID:integer;
begin
parkplatzID:=TPanel(Sender).Tag
if IstVermietet(parkplatzID) then
TPanel(Sender).Color := clgreen
else
TPanel(Sender).Color := clred;
TPanel(Sender).Font.Color := clHighlightText;
end;
procedure TfmHVMainForm.PanelClick(Sender: TObject);
var parkplatzID:integer;
kundennummer:integer;
begin
parkplatzID:=TPanel(Sender).Tag
if IstVermietet(parkplatzID) then
begin
kundenummer:=KundeAufParkplatz(parkplatzID);
ÖffneKundenVerwaltungVonKunde(kundennummer)
end;
end;
Edit: Wo war die rote Box?