Herausfinden wie viele Panels auf einen Panel liegen

[DennisHB]

Delphi-Quellcode:

var 
  i, n: integer;
// ... Irgend etwas vorher

n:=0;
if (Sender is TPanel) then 
  for i:=0 to TPanel(Sender).ComponentCount-1 do
    if (TPanel(Sender).Components[i] is TPanel) then
      Inc(n);

// ... Irgend etwas danach

Oder wenn nur die Panel's gezählt werden sollen, die direkt im Sender liegen, aber nicht Panels die in Deinen ExPanelX liegen:

Delphi-Quellcode:

var 
  i, n: integer;
// ... Irgend etwas vorher

n:=0;
if (Sender is TPanel) then 
  for i:=0 to TPanel(Sender).ComponentCount-1 do
    if (TPanel(Sender).Components[i] is TPanel) and (TPanel(TPanel(Sender).Components[i]).Parent = Sender) then
      Inc(n);

// ... Irgend etwas danach