Herausfinden wie viele Panels auf einen Panel liegen

[Andreas L.]

Habs jetzt anders gelöst. Verwende nun eine globale StringList um die ExPanels zu verwalten:

Delphi-Quellcode:

function ArrangeExPanel(Sender : TObject):Boolean;
var
 i: Integer;
 useEdit: TSpeedButton;
 useDelete: TSpeedButton;
begin
//überprüfen ob das onResize-Ereignis von einen Panel kommt
if (Sender is TPanel) then
 begin
  for i:=0 to ExPanels.Count-1 do
   begin
    //Edit-Button finden und zuweisen
    useEdit:=((Sender as TPanel).FindComponent('Edit_'+ExPanels.strings[i]) as TSpeedButton);
    //Delete-Button finden und zuweisen
    useDelete:=((Sender as TPanel).FindComponent('Delete_'+ExPanels.strings[i]) as TSpeedButton);
    //useDelete:=(useDelete as TSpeedButton);
    //useEdit:=(useEdit as TSpeedButton);
    //Edit-Button verschieben
    useEdit.Left:=(Sender as TPanel).Width-3;
    //Delete-Button verschieben
    useDelete.Left:=(Sender as TPanel).Width-87;
   end;
   Result:=true;
  end
 else
  begin
   Result:=false;
  end;
end;